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Prefazione 

^Giochi fantastici con il C64» non è solo un concentrato di favo¬ 
losi, entusiasmanti giochi, ma ha anche altri obiettivi. 

Primo: vi fornisce una varietà di giochi che potete semplicemen¬ 
te digitare sul vostro computer, registrare su nastro o su disco e 
quindi utilizzare a volontà. 

Secondo: poiché i programmi sono riprodotti integralmente, 
potete vedere come il creatore del gioco ha realizzato gli effetti che 
vi piacciono. Infatti, per rendere questo libro iJ più utile possibile, 
molti dei programmi sono completati dalle spiegazioni di come gli 
stessi funzionano. Dei capitoli, alNnizio e alla fine, vi aiuteranno 
anche ad apprendere come scrivere i vostri giochi. 

Terzo: col proposito di rendere il più semplice possibile la digi¬ 
tazione dei programmi abbiamo incluso particolari sussidi (Appen¬ 
dici A e B}, che vi raccomandiamo di leggere attentamente. 

Alcuni dei programmi sono scritti completamente o parzialmen¬ 
te in linguaggio macchina. Se vi siete trovati a digitare un program¬ 
ma in linguaggio macchina, con le sue centinaia di istruzioni DATA, 
apprezzerete l Editor perii linguaggio macchina: MIX nel capitolo 
6. L MLX è un programma BASIC, che vi aiuterà ad introdurre nel 
vostro computer programmi in linguaggio macchina in maniera 
perfetta al primo tentativo. 





Capitolo 


Il C64 
come 
video-gioco 



1.1 

Perché 
il C64 è un 
ottimo strumento 
per giocare 

Eric Brandon 


Una delle prime cose che un neo-programmatore vuol fare è di 

scrivere un gioco. Presto però scopre che non ci sono comandi del 

tipo «Sposta l'astronave», ma che questo dev'essere spiegato al 

computer per mezzo di centinaia di piccole e semplici operazìo- 
+ 

ni. 

Fortunatamente, il Commodore 64 è dotato di caratteristiche che 
riducono il numero di queste operazioni e rendono quindi molto 
meno pesante questo compito. I giochi presenti in questo libro 
cercano di esporre queste caratteristiche nel miglior modo possì¬ 
bile, onde far risparmiare tempo e fatica al programmatore nel 
digitare i programmi. 

Partez-vous BASIC? 

In quale linguaggio scrivere il gioco è la prima decisione che il 
programmatore deve prendere. Sul Commodore 64 la scelta è tra il 
BASIC ed il linguaggio macchina. 

Il linguaggio nativo del computer è il linguaggio macchina. Que¬ 
sto significa che i programmi scritti in BASIC devono essere tradotti 
in linguaggio macchina mentre vengono eseguiti. Questa traduzio¬ 
ne richiede tempo, perciò i programmi in BASIC sono notevolmen¬ 
te più lenti dei programmi scritti in linguaggio macchina. 
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Il linguaggio macchina è molto veloce, ma è uno dei linguaggi 
più difficili da usare; così, per semplificare la scrittura di un gioco, 
molti programmatori optano per il BASIC o per una delle combe 
nazioni di BASIC e linguaggio macchina, in ultima analisi, la scelta 
dipende da quanto la velocità sia importante in un gioco. Ne è 
testimone l'incredibile velocità di «Munchmaze» o di «Vipera*, 
entrambi scritti in linguaggio macchina. Altri giochi dove la velocità 
non è un fattore essenziale, come in «Parola misteriosa», non usano 
per niente il linguaggio macchina. 

Il C64, in ogni modo, facilita la programmazione in linguaggio 
macchina, poiché ha un microprocessore molto diffuso e semplice 
da usare, ed ha aree di memoria in cui un programma in linguaggio 
macchina può venire convenientemente memorizzato e protet¬ 
to. 

Create il vostro alfabeto 

Ogni volta che vedete una lettera, o un carattere grafico, sullo 
schermo state guardando un elemento di un set (insieme) di carat¬ 
teri, Il set di caratteri è dove il computer va a vedere come è fatto un 
carattere, ad esempio la A, prima di riprodurlo sullo schermo. 
Premendo i tasti SHIFT e Commodore potete selezionare uno 
dei due set di caratteri disponibili. In uno di essi il carattere numero 
uno è A, nell'altro è a. 

Questo è molto importante per il programmatore di giochi, poi¬ 
ché con il C64 può creare il proprio set di caratteri. Per esempio, il 
programmatore può dire al computer che il carattere uno è un 
«volto sorridente». A questo punto far muovere una faccia felice 
sullo schermo è proprio come far muovere un qualsiasi altro carat¬ 
tere. Ecco un breve programma che cambia il carattere A in un volto 
sorridente: 

5 REM DISABILITA 1MTERRUPT E RIVELA ROM DE 
I CARATTERI 

10 POKE56334,PEEK(56334)AND254 
20 PQKE1 f REEK(1) AND251 

25 REM COPIA IL SET DEI CARATTERI Itì RAM 

29 FRI NT"ATTENDERE 30 SECONDI, PREGO" 

30 FORI-0TO2048 
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40 POKEl 2288 + 1,PEEK(53248 + I) 

50 NEXTI 

55 REM NASCONDE ROM CARATTERI E RIABILITA 
INTERRUPT 

60 POKE 1 ,PEEK fì)OR4 

70 POKE56334,PEEK(56334)ORI 

75 REM ABILITA NUOVO SET CARATTERI 

80 POKE 53272,28 

85 REM MEMORIZZA IL VOLTO 

90 FORI^QTO? 

100 READA 
110 POREI 2 2 96 + 1 ,A 
1 20 NEXT 
1 30 END 

195 REMOGNI NUMERO CORRISPONDE AD UNA RIGA 
DEI PUNTI CHE FORMANO IL VOLTO 
200 DATA 60,66,165,129,165,153,66,60 


Ancor più potente è la tecnica che dice al computer che il 
carattere uno rappresenta la parte sinistra di una nave spaziale ed il 
carattere due la parte destra. Dalia combinazione di più caratteri 
pre-deftniti è possibile creare delle forme più complesse. Questa 
tecnica è stata usata in «Duomo folco di Dindrin». 

Un altro modo per creare una nave spaziale 

A volte nei giochi è necessario che gli oggetti sullo schermo 
passino attraverso o sopra altri oggetti, come per esempio una nave 
spaziale che passa nel cielo stellato. Il C64 può non solo fare que¬ 
sto, ma anche rilevare automaticamente una collisione fra due 
oggetti. 

Questi oggetti, chiamati «sprite^ possiedono alcune caratteristi¬ 
che molto utili. Ad ognuno dei 504 punti che li costituiscono può 
venire assegnato un colore diverso da quello dei punti contigui e 
l'intero sprite può raddoppiare le proprie dimensioni, sia in senso 
orizzontale che in senso verticale. Anche se possono essere visua¬ 
lizzati contemporaneamente solo otto sprite per volta, la maggior 
parte dei giochi non ne richiede tanti. 
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Gli sprite possono anche essere usati per l'animazione. L'uccello 
che compare in «Parola misteriosa» è uno iprite Per creare il battito 
delle ali sono state disegnate più versioni dell'uccello: con le ali 
sollevate, a metà e abbassate. Visualizzando una torma dopo l'altra 
si dà l'illusione del battito delle ali, 

Pìccolo è bello 

A volte, invece dei grandi oggetti, in un gioco occorre lavorare 
con i pixel i puntini singoli che creano l'immagine sul vostro 
schermo. In alta risoluzione è possibile controllarli uno per uno. 
Con la grafica in alta risoluzione si può disegnare uno stondo 
particolareggiato quanto si vuole, sopra il quale si fanno muovere 
gli sprite che animano il gioco. Nessuno dei giochi di questo libro 
usa questa tecnica, perché sarebbe necessario digitare 8000 nume¬ 
ri, che descrivono ciascuno dei puntini dello schermo in alta riso¬ 
luzione. 


Il colore del C64 

Qualunque buon computer adatto per t giochi offre la possibilità 
di usare i colori sullo schermo. Alcuni hanno 256 tonalità differenti 
di colore, altri ne hanno solo sei. 

Oltre al numero di colori di cut il computer dispone, ha altret¬ 
tanta importanza il numero di quelli che può visualizzare contem¬ 
poraneamente. Il C64 è molto adatto alla grafica multicolore. Cia¬ 
scun carattere, o punto, può essere di uno qualunque dei suoi 16 
colori. Inoltre, ogni punto che compone un carattere o uno sprite 
può avere il proprio colore. 

Oltre la barriera del suono 

Una delle caratteristiche più importanti di un buon gioco è costi¬ 
tuita dagli effetti sonori delle esplosioni, dalla musica e da vari altri 
suoni. 

LI Commodore 64 possiede un mini-sintetizzatore, chiamato 
chip SID, che può produrre tre diverse voci contemporaneamente; 
perciò è possibile ottenere sia la melodia che gli accordi. Potete 
rendervene conto ascoltando la breve canzone suonata in «La 
vendetta dei Barone Rosso». 
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Inoltre il SIO controlla le caratteristiche più sofisticate de] suono, 
quali l attack, il decay, il sustain ed il release, che vi permettono di 
far si che una stessa nota sembri provenire da un tamburo o da un 
oboe. 

Giocate con noi 

Questo libro è più di un libro di giochi. Il Commodore 64 è una 
stupenda macchina con delle caratteristiche che permettono di 
creare dei giochi simili a quelli delle sale giochi. Ma alcune di 
queste caratteristiche si possono conoscere solo con la pratica. 

Per molti giochi sono state fornite spiegazioni su come gii stessi 
sono stati realizzati e come sono state utilizzate le caratteristiche 
del C64 r 5e digitate i giochi e leggete le spiegazioni, non solo 
potrete divertirvi per delle ore, ma imparerete anche molte delle 
tecniche necessarie per realizzare i vostri giochi. 




7 







1.2 

Per scrivere 
il vostro 

primo gioco 

^■ 

Richard Mansfield 


Richard Mansfield spiega i dettagli di un semplice gioco. Un 
programmatore alle prime armi può apprendere molte cose stu¬ 
diando questo breve programma. 

Se siete tentati di scrivere i vostri giochi, andate avanti. È una 
buona maniera per imparare a programmare, I giochi sono essen¬ 
zialmente uguali ad ogni altro tipo di programma. 

I giochi al computer ricadono in due categorie; imitazioni di 
vecchi standard (Dama, Otello) e giochi che non possono essere 
giocati senza un computer (Space Invader, Pac-Man), 

Questa seconda categoria, essenzialmente giochi da bar, è di più 
difficile programmazione, per diverse ragioni: 

— per ognuno di questi giochi dovete avere un idea che sia com¬ 
pletamente nuova e divertente, inoltre dovete calibrare I azio¬ 
ne affinché sia abbastanza difficile, da essere avvincente, ma 
non tanto da scoraggiare la gente; 

— un buon gioco per computer utilizza al massimo tutti gli attributi 
speciali del computer stesso: velocità, colore e suono. Saper 
utilizzare questi attributi, ottenendo gli effetti che si sono 
immaginati, richiede un. buon livello di esperienza nella pro¬ 
grammazione; 

— di solito, inoltre, nei giochi tipo bar devono accadere cose 
diverse nello stesso momento; questo significa che spesso il 
programma deve essere scritto in linguaggio macchina, che è 
molto più veloce del BASIC. 
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La carta più alta 

Per contro, i vecchi giochi possono essere Ja migliore strada per 
cominciare con la programmazione. Voi conoscete già il concetto 
del gioco, e quindi quelli con le carte o con i dadi o da scacchiera 
sono facilmente riproducibili e manipolabili sullo schermo del 
vostro computer. Per esempio,, pensate ad una semplice simula¬ 
zione di uno dei più vecchi giochi di carte, *La carta più alta*. Le 
regole sono semplici; fate una puntata e poi prendete una carta dai 
tavolo. Il computer, vostro avversario, ritirerà anch'esso una carta e 
la più alta delle due vince. 

Una semplificazione si è ottenuta cercando di non rappresentare 
le carte sullo schermo, L'intero gioco si basa sulle parole (asso di 
picche, per esempio) quando le carte vengono estratte. 

Come la maggior parte dei programmi per computer anche que¬ 
sto lo si può immaginare composto da quattro sezioni distinte: 
inizializzazione, nucleo principale, subroutine e tabelle dati, Toc¬ 
cheremo i vari punti della programmazione di questo gioco, ana¬ 
lizzando separatamente le quattro sezioni, 

Inizializzazione 

Dalla linea 10 alla 80 informeremo il computer su alcuni elementi 
basilari del gioco. L'inizia lizzaci One è l'azione che deve essere 
eseguita prima di ogni altra. 1 computer sono cosi veloci che vole¬ 
ranno su queste linee e passeranno al nucleo principaie del pro¬ 
gramma, alla linea 100, in un attimo. Comunque, come program¬ 
matori, dobbiamo renderci conto che delle operazioni devono 
essere eseguite prima di ogni altra cosa. 

Nella lìnea 20 il computer scopre che c r è una variabile chiamata 
I IRE e che è posta uguale a 500: le riserva una sezione (una piccola 
scatola) nella sua memoria e la etichetta LIRE. Mentre il gioco è in 
esecuzione il computer aggiungerà o sottrarrà da questa scatola 
(linee 230-240) per tenere un totale aggiornato dì quanto denaro 
avete da puntare. Di volta in volta (linea 110) anal izzerà la scatola e 
riferirà al giocatore quanto ha a disposizione. La scatola LIRE è 
chiamata variàbile perché durante il gioco il suo contenuto varie¬ 
rà. 

Le linee da 30 a 60 sono abbastanza semplici: chiedono al gio¬ 
catore il suo nome. 11 computer memorizza questo nome in un'altra 
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scatola chiamata NOMES e può quindi parlare più personalmente 
al giocatore nelle linee 140 e 230, Inoltre il computer visualizza le 
regole del gioco nella linea.60. 

La linea 70 legge quattro nomi (le figure) con l'istruzione READ 
dalla tabella di dati nelle linee da 510 in poi, tl computer ricorda 
anche di aver già letto quattro dati. Cosi, quando gli viene chiesto di 
leggere ancora (linea 80), riprende dal dato successivo con i 
SEMI. 

Finora il computer ha memorizzato una varietà di importanti 
informazioni: il nome del giocatore, l'ammontare della sua borsa, il 
nome delle figure e i colori di un mazzo di carte standard. In meno 
di un secondo il computer ha ricevuto e conservato tutte le infor¬ 
mazioni necessarie per passare al nucleo principale, dove verranno 
eseguite tutte le azioni del gioco. 

Il nucleo principale 

Dopo aver controllato se il giocatore ha denaro per giocare il 
computer chiede la somma puntata, controlla nuovamente se ciò è 
possibile e quindi esegue un ciclo del gioco con inizio alla linea 
160. A questo punto un programmatore potrebbe pensare che 
conviene visualizzare i passi seguiti nel gioco: estrai una carta per il 
giocatore; estrai una carta per il computer; decidi chi ha vinto; 
aggiorna la borsa del giocatore. 

Poiché entrambe le azioni di estrazione sono essenzialmente 
identiche (la sola differenza sarà che diremo «Bob pesca un...a 
invece dì di computer pesca,., ») f non abbiamo bisogno di program¬ 
mare l'estrazione della carta due volte. 

Qui ci vengono in aiuto le subroutine, 

Le subroutine 

Nel nucleo principale abbiamo due volte la chiamata della 
subroutine nella linea 300 (GOSUB 30CV). Prima II giocatore, poi il 
computer, pescano una carta. La linea 310 seleziona due numeri in 
maniera casuale, la carta e il seme, 5e la lìnea 320 trova che la carta 
scelta è uguale a quella selezionata in precedenza per il giocatore, 
viene ripetuta l'estrazione. 

La linea 330 attribuisce alla carta il suo valore, se è inferiore a 1 i 
(una figura). 
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La Irnea 340 annuncia la carta pescata per mezzo di tre variabili. 
La prima variabile (GlOCAT$) è aggiornata nelle linee 160 o 190; le 
variabi li CARTAS e SEME$ sono scelte tra t valori memorizzati nella 
fase di inizializzazione (linee 70-80) e quindi dalla subroutine si 
ritorna (istruzione RETURN) al nucleo principale. 

Le linee 210-240 proclamano il vincitore di questa mano. Se la 
variabile CARTA (la carta del computer) è maggiore (>) della varia¬ 
bile TUACARTA r il computer viene dichiarato vincitore nella linea 
240, la borsa aggiornata e ripresa l'esecuzione del nucleo princi¬ 
pale (GOTO 100), 

Se le carte sono uguali, non viene aggiornata la borsa ed inizia la 
mano successiva. Notate che non è necessario dire 1F TUACARTA 
> CARTA, all'Inizio della linea 230, per controllare se ha vinto il 
giocatore. Questa è la sola cosa possibile, se il computer è giunto 
fino a questa linea. 

Una volta che avete risolto un particolare problema vi accorge¬ 
rete che è possibile usare la stessa soluzione in motti altri giochi, 
Questa subrettine che estrae delle carte, per esempio, sarebbe 
altrettanto utile per il gioco del Poker, o del Blackjack o in dozzine 
di altri giochi. Le subroutine sono efficienti non solo perché pos 
sono essere utilizzate ripetutamente all'interno di un programma, 
ma anche perché possono essere registrate e riutilizzate in futuri 
programmi. Quindi, pensate ad un semplice gioco tradizionale e 
insegnatelo al vostro computer. Probabilmente non c'è maniera più 
piacevole per imparare a programmare che scrivere un gioco. 

10 REM * NECESSARIE INFORMAZIONI INIZIALI 
* 

20 LI RE-500 

30 PRINT" CON CHI HO IL PIACERE DI GIOCARE 

■I 

40 PRINT 11 ALLA CARTA PIU* ALTA ?" 

50 INPUT NOME? 

60 PRINT” IN QUESTO GIOCO LA CARTA PIU f AL 
TA{ 6 SPAZI}VINCE ! 11 

70 DIM SEMI $(4) ,CARTE?(14): FORI = 11 TOT 4:REA 
D CARTA?(I):NEXTI 
00 FORI=1TG4:READ SEME?(I):NEXT I 
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90 REM 

100 REM * NUCLEO PRINCIPALE * 

1 1 0 PRINT: PRINT"HAI "LI RE 11 LIRE" 

120 IF LIRE<=0 THEN PRINT" IL GIOCO E 1 FIN 
ITO. SEI AL VERDE.":END 
130 PRINT"QUALE E 1 LA TUA PUNTATA"INPUT 
PUNTATA 

140 IF LIRE<PUNTATA THEN PRINT"HAI SOLO"LI 
RE" LIRE DA PUNTARE h NOME$: GOTO 130 
150 TUACARTA=0:SEMETUO-0 
160 GlOCAT$ =N0ME$ 

170 GOSUB 300 

180 TUACART&=CARTA : SEMETUO=SEME 
190 GIOCAT$= m IL COMPUTER" 

200 GOSUB 300 

210 IF CARTA>TUACARTA THEN GOTO 240 
220 IF CARTA=TUACARTA THEN PRINT "PARI ■": 
GOTO 100 

230 PRINT "VINCE "NQME$:LIRE=LIRE+PUNTATA: 
GOTO 100 

240 PRINT 11 VINCE IL COMPUTER":LIRE=LIRE-PU 
NTATA: GOTO 100 
290 REM 

300 REM * SUBROUTINE PER ESTARRE UNA CARTA 

* 

31 0 CARTA= I NT ( RND ( 5) *1 3) +2 :SEME= INT (RND { 5) 
*4) +1 

320 IF CARTA=TUACARTA AND SEME=SEMETUO THE 
N 300:REM DUE CARTE UGUALI 
330 IF CARTA.< 1 1 THEN CARTAI (CARTA) =1, IL"+ST 
R$ [CARTA) 

340 PRINT GlOCAT$" HA PESCATO "CARTA$(CART 
A)" DI M SEME$(SEME) 

350 RETURN 
490 REM 

500 REM TABELLA DATI 

510 DATA IL FANTE f LA DONNA f IL RE,L'ASSO 
520 DATA FIORI t QUADRI r CUORI,PICCHE 

12 



1.3 

Scrivere un gioco 
di simulazione 

Richard Mansfield 


Una simulazione è un imitazione delia vite. Questo può essere il 
più difficile tipo di gioco da creare , È importante il pensiero più che 
unteiione veloce. Provate la breve simulazione qui riportata , quin¬ 
di cercate di scriverne una vostra. 

Cì sono tre tipi basilari di giochi per computer: ì giochi da bar 
(arcade), i giochi d'avventura (avventure) e quelli di simulazione. 
Daremo una breve occhiata alle caratteristiche dei giochi da bar e 
d'avventura e poi scriveremo una simulazione. 

Azioni in tempo reafe 

La caratteristica dei giochi da bar è Tazione in tempo reale . 
Diversamente dagli scacchi e dal bridge, le cose avvengono velo¬ 
cemente. Non potete mettervi comodi a pianificare la vostra pros¬ 
sima mossa; dovete reagire immediatamente all'invasore spaziale. 
In altre parole, gli eventi si susseguono alla stessa velocità che si 
avrebbe nella realtà: in tempo reale. 

I giochi da bar sono inoltre un forte richiamo per gli occhi e per 
l'udito. Ci sono molta animazione, colori e suoni. Infatti la vostra 
abilità di rispondere velocemente ed efficacemente dipende in 
parte dalle impressioni che ricevete dai disegni e dagli effetti sono¬ 
ri. La strategia, anche se è spesso uno degli aspetti di un gioco da 
bar, è chiaramente di importanza secondaria. 

Questi giochi costituiscono un nuovo tipo di ginnastica: il diver¬ 
timento dell'uomo contro la macchina. Come le gare di auto, i 
giochi da bar sono esercizi isometrici; non dovete correre intorno 
alla stanza, ma solamente stare fermi in un posto, flettendo e 
allungando ì vostri muscoli, tendendoli e rilassandoli. 


i 
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La storia e la strategia 

La strategia, invece, è molto importante nei giochi d'avventura. Il 
divertimento consiste nel pianificare la condotta di gioco e risol¬ 
vere gli enigmi. Può sembrare di vivere in una novella di avventura. 
C'è il dramma, il personaggio e la trama. Potreste trovarvi, per 
esempio, in una foresta con una pala e la compagnia di un fedele, 
ma enigmatico, pappagallo. Come cercate di immaginare cosa fare 
in seguito il pappagallo comincia a ripetere: «valli verdi, valli ver¬ 
di». 

Dopo aver vagabondato senza scopo tra gli alberi all'improvviso 
vi accorgete che l'uccello sta dicendo: «aghi dì pino» e voi scavan¬ 
do tra questi vi trovate una mappa del tesoro. 

Il vostro «personaggio» viaggerà, incontrerà amici e nemici ed 
avrà l'opportunità di prendere o ignorare oggetti potenzialmente 
utili, come cibo, bacchette magiche e medicine. È naturale che non 
possiate trasportare tonnellate di roba. Dovreste decidere se lascia¬ 
re la pala nella foresta, o no. Tuttavia potreste pentirvi di averla 
posata, se ne! seguito del gioco vi ritrovate in una caverna. 

In ogni caso i giochi di avventura sono essenzialmente verbali. Il 
computer mostra la frase: 

SEI SU UNA BARCA IN UN LAGO 

SCENDE LA NOTTE 

alla quale potete rispondere in infiniti modi. Potreste dire: 

MI TUFFO 

e il computer potrebbe replicare che ora vedete una grotta sotto¬ 
marina o altre cose dei genere. Vi muovete attraverso le situazioni 
come un personaggio in un racconto. 

Generalmente non c'è limite di tempo per decidere la prossima 
mossa, Non è un gioco in tempo rea/e. 

Imitazioni della vita 

La terza categoria, la simulazione, è il tipo di gioco da computer 
meno comune. Questo perché per imitare realmente qualcosa, per 
simularla effettivamente, avete bisogno di molta memoria per con¬ 
servare un gran numero di variabili. 

Comunque, la memoria recentemente è diventata sempre meno 
costosa, cosicché possiamo aspettarci dì vedere giochi di effettiva 
simulazione. Star Trek e Hammurabi, entrambi simulazioni, sono 
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stati a lungo giochi molto popolari. Sebbene siano simili ai giochi 
d'avventura, le simulazioni sono casuali, Cioè, non c'è alcun segre¬ 
to da scoprire, nessun rompicapo da risolvere, nessun complotto. 
Come nella vita reale le cose avvengono con risultati complessi e 
imprevedibili. Ecco un programma che simula degli investimenti. 
La chiave per fare delle simulazioni è di trovare delle interazioni 
realistiche tra le variabili, 

Guardate la linea 600. Se c'è una «flessione internazionale», il 
prezzo dell oro (PGLD) aumenta e il prezzo delle azioni Fiat dimi¬ 
nuisce. Queste relazioni tra oro, azioni e una crisi internazionale è 
reale. 

Diversamente l'oro diminuisce di prezzo, alla linea 700, durante 
un «recupero del mercato», 

11 gioco vi permette di prendere delle decisioni sugli investimenti 
e col passare del tempo il valore del vostro in vestimento aumenterà 
o diminuirà. Nella linea 510 a tre variabili sono dati dei valori 
casuali, Le azioni possono guadagnare e perdere sino a 10 punti 
{variabile X) e l'oro arrivare ai 20 $ ad onda (V). La variabile Z è 
utilizzata per simulare il lancio di una monelina. Notate anche le 
linee 520 e 525. Nella linea 520 determiniamo se ci deve essere o 
no una flessione. La variabile CH è un contatore. Ogni mese CH 
viene incrementato di uno. Si richiedono due condizioni perché si 
abbia una flessione: in un dato mese CH deve essere maggiore di 4 
e deve essere inferiore al valore di X, 

Se si verificano entrambe queste condizioni, CH è rimesso a zero e 
si ha una flessione internazionale. Questo ha l'effetto di provocare 
flessioni all r in circa ogni 4 mesi. 

Parimenti, viene scelto un altro ritmo alla linea 525 per causare il 
recupero del mercato. In entrambi i casi, comunque, non potete 
essere certi di quando conviene investire in oro o in azioni. 

La decisione di aumentare o diminuire il valore delle azioni è 
presa alla linea 530 ed è basata sulla variabile Z (la monetina di testa 
o croce). Le azioni si spostano in opposizione al valore dell'oro. I 
prezzi aumentano per circa il 50 per cento del tempo, ma non 
saprete mai cosa accadrà in un dato mese. 

Miglioramenti suggeriti 

Questo è lo scheletro, un rozzo abbozzo, di un gioco di simu¬ 
lazione. Potete fare molto per ottenere una migliore simulazione ed 
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un gioco più piacevole. Più variabili ci sono in un gioco di simula¬ 
zione e meglio è. Per esempio, potete aggiungere altri «incidenti» 
che influiscano sui prezzi, migliorare la casualità e includere altri 
tipi di investimento. Potete anche aggiungere un contatore sepa- 
rato, che ogni 5 anni causi oscillazioni più ampie delle variabili X e 
Y, per riflettere i cicli di recessione e di recupero. 

Come potete vedere, una simulazione deve essere tome la real¬ 
tà, Ha cidi interdipendenti e un certo grado di imprevedibilità. Il 
suo realismo deriva dall'includere un sufficiente numero di varia¬ 
bili, e queste devono interagire in modo plausibile e con una certa 
casualità. Una simulazione è un pìccolo mondo da voi creato. 

Potete definire cause ed effetti e quindi calibrare il tutto finché 
non vi sembri ben bilanciato. I giochi d'avventura e tipo bar sono 
certamente piacevoli, ma questa simulazione d'investimenti può 
essere perfezionata al punto da diventare divertente come qual¬ 
siasi altro tipo di gioco. 

Mescolando gli stili 

Naturalmente, la definizione di queste tre categorie — giochi da 
bar, d'avventura e di simulazione -- è arbitraria, I migliori giochi 
contengono elementi di tutte e tre le categorie. Ci sono giochi 
d'avventura con della grafica: vedete la foresta, la pala, gli aghi di 
pino. Dopo aver detto MI TUFFO il vostro personaggio salta 
nell'acqua e lo schermo si trasforma in una scena subacquea. Inol¬ 
tre, i giochi da bar possono includere diverse situazioni caratteri¬ 
stiche dei giochi d'avventura. G lochi da bar popolari come TRON e 
DONEY-KONG cambiano lo scenario secondo il punteggio che 
raggiungete, 

Ci sono diverse maniere per rendere più attraente la nostra 
simulazione di investimento, rendendola un pochino più comples¬ 
sa e un pochino più accurata. Fot reste aggi ungervi una parte grafica 
e dei suoni da videogioco. 

Provate a creare il ticchettio di un nastro che attraversa lo scher¬ 
mo mostrando i cambiamenti dei prezzi e le ultime notizie. Magari 
si può aggiungere il suono di una campana alla fine delle transa¬ 
zioni, E dai giochi di avventura potete prendere in prestito due 
elementi: gli enigmi e la necessità di pianificare il futuro. Un sistema 
facile per incorporare questi due elementi sarebbe di includere nel 
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gioco il pagamento delle tasse. Dopo tutto, 3a simulazione più si 
avvicina alla vita reale e meglio è. 


Simulazione d’investimento 


5 PRINT"{CLR}" 

10 CASSA-1OOOOQ:PGLD=4GO 

15 POKE 53272,23:REM SELEZIONA SET MINUSCOL 
O/MAIUSCOLO 
20 PB=S0 

31 PRINT:PRINT M LE AZIONI FIAT SONO A 5 tt PB M 
:PRINT"HAr'B"A2lONI. -- $"PB*B 

33 PRINT"L 1 ORO E 1 A $"PGLD"PER ONCIA."iPRI 
NT"HAI"GLD 1, ONCIE. — $”GLD*PGLD 

34 T-PE*B+GLD*PGLD 

3 5 PRINT : PRINT 11 ^NVESTIMENTO TOTALE -- $ n T 
36 PRINT: PRINT''HAI $ "GAS SA” DA SPENDERE * 11 

4 0 PRINT: PRINT”TOTALE lt : PRINT” f INVESTIMENTI 

+ CASSA){ 4 SPAZI]$"T+CASSA 
45 IFCK=1THEN500 

50 PRINT : PRINT 11 1 .COMPRA £ 2 SPAZI}2,VENDI 
{ 2 SPAZ X}3.FINE” 

60 INPOTA:IFA=3THENCK-1: GOTO31 
100 PRINT"COSA?{ 2 SPAZI}1.OROf 4 SPAZI}0 
{ 4 SPAZI}2.AZIONI" 

110 INPUTF 

120 FRINT“QUANTE AZIONI 0 ONCE ?" 

130 INFUTN 
140 IFF S 1THENl60 

1 50 PREZZO-PB*N:IFA = 1THENCASSA=CASSA-PREZZ 
O:B =B+N:GOTO 4 00 

1 55 CASSA=CAS5A+PREZZO:B=B-N:GOTO50 
160 PREZZG=PGLD*N:IFA=1THENCASSA=CASSA-PRE 
ZZO:GLD=GLD+N:GOTO 400 
170 CASSA-CASSA+PREZ ZQ:GLD=GLD-N 
400 GOTO50 
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500 PRINT"PREMERE UN TASTO PER CONTINUARE" 
* 

50 3 GETC$:IFC$ = 1,tl THEN503 

505 CK=Q:PRINT ;PRINT"{CLR}UN MESE PILT TAR 
DI,...";FORT-1TO700:NEXTT:PRINT 

51 0 JC-INT ( (RND (1> *1 00)/I 0) : Y= INT ( (RND ( 1 ) *2 

00)/I 0) : S = RND(1 ) 

520 CH=CH+] :IFCH>4ANDCH <XTHENCH= 0 :GOTO600 
525 IFCH=2THEN7G0 

530 IFS> * 5THENPG=PB+X:PGLD-PGLD-Y:GOT031 
540 PB-PB-Xs PGLD=PGLD+Y:GOT031 
600 PRINT"FLESSlONE JtNTERNAZ IONALE P 

GLD = PGLD+2 *Y:PB = PB~2 *X:GGT031 
70Q PRI NT n RECU PERO DEL MERCATO . 11 PGLD = PG 

LD-2*Y:PB-PB+3*X:GOT031 




Scrivere 

un gioco d’azione 

Richard Mansfield 


l'uso deila mappa di memoria dello schermo potrebbe aiutarvi a 
creare giochi d'azione più veloci. ìtprogramma-esempio qui ripor¬ 
tato vi aiuterà nei creare i vostri giochi d'azione. 

Quando portate a casa il vostro computer la prima cosa che 
ognuno si aspetta voi facciate è di scrìvere un gioco d'azione tipo 
bar. Chi è «ognuno*? Potrebbe essere il vostro bambino, i vostri 
amici ed anche voi stessi, chiunque è stanco di spendere un muc¬ 
chio di soldi e vuole che programmiate un gioco da potersi giocare 
a casa, senza spesa. 

La migliore difesa è di sottolineare gentilmente ciò : 

1. I giochi d'azione sono tra il software più difficile da scrivere, 

2, Ad un professionista, pur lavorando in gruppo con altri specialisti 
dei settore, può essere necessario un anno per scriverne uno. 

Comunque, è un grande merito cercare di creare uno di questi 
giochi. Potreste non essere in grado di raggiungere la velocità o la 
complessità dei giochi professionali, ma potete creare, voi stessi, 
giochi molto divertenti. Dopo aver trascorso qualche settimana ad 
acquistare familiarità con il BASIC, e aver digitato qualche gioco, 
sarete pronti ad affrontare la sfida. Questo è uno dei migliori modi 
per apprendere alcune importanti tecniche di programmazione e 
per esplorare le capacità grafiche e sonore del vostro computer, 

Dieci milioni di If/THEN 

II più grosso problema che dovrete superare è la velocità. Il 
BASIC, sebbene abbastanza veloce per numerosi scopi, diventa 
lento quando deve tener conto di dieci alieni, due astronavi madre, 
razzi, stelle e della posizione del giocatore. Tutte queste cose sono 
in movimento contemporaneamente. Avete bisogno di un sistema 
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per mantenere il controllo dei giocatori, per determinare 3e colli¬ 
sioni, per aggiornare il ponteggio, ecc, 

La prima soluzione che viene alla mente è quella di usare un 
IF/THEN per analizzare ogni possibile evento del gioco. Se (IF) la 
pallina urta contro il bersaglio, allora (THEN) incrementa il punteg¬ 
gio. Se la pallina manca il bersaglio, allora deve avanzare di uno 
spazio. E cosi via. Questo, però, rallenta fortemente l'azione. 

Il ping-pong con dei P0KE 

Uno dei piu semplici giochi d azione è la simulazione del ping- 
pong, Dovete gestire solo tre cose: due palette ed una pallina. 
Cominciamo col risolvere il problema più difficile. Come possiamo 
far correre una pallina sullo schermo in maniera accurata, ma sem¬ 
plice? 

La chiave della soluzione del problema è il fatto che la maggior 
parte dei computer ha un'area della memoria RAM che è un im¬ 
màgine di quello che vedete sullo schermo. Questa è chiamata 
mappa di memoria video , Ciò significa che se fate un POKE in 
questa area di RAM, un carattere apparirà sullo schermo. Il succes¬ 
sivo byte di memoria corrisponde al successivo spazio sullo scher¬ 
mo e cosi via. Voi potete utilizzare questa mappa inserita nel vostro 
computer per vedere cosa c'è in un punto, grazie al veloce coman¬ 
do PEEK, e potete muovere gli oggetti semplicemente con dei 
POKE. 

Il programma-esempio per il Commodore 64 utilizza le seguenti 
variabili: 

SCR = L'indirizzo dove comincia la memoria di schermo. 

LN - La lunghezza di una linea delio schermo, 

MURO = Quando questo numero viene immesso in memoria con 
un POKE appare sullo schermo un quadratino pieno, 

SPAZIO = Il carattere di spazio che cancella i caratteri MURO o 
FIGURA , se immesso nelle stesse celle di memoria. 

FIGURA = Un carattere che, quando è posto nella memoria di 
schermo, rappresenta una pallina o altro. 

Il computer determina l'inizio della mappa di memoria video in 
linea 100. Prima disegna un bordo intorno allo schermo, come una 
cornice di un quadro (linee 250-310), Questo bordo è molto utile, 
Vi permetterà di sapere quando la palla ha raggiunto il lìmite, 

LQC è la variabile del programma che conserva la posizione della 
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pallina. Per gestire lo spostamento della pallina è necessaria un'al¬ 
tra variabile (VECTR, in questo esempio), che contiene la direzione 
del movimento. Quando viene aggiunto VECTR alla variabile LQC 
noi conosciamo quale sarà la prossima posizione della pallina. 

Nei giochi animati più semplici ci sono quattro direzioni. Viag¬ 
giando verso l'aito, per spostare la palla alla linea superiore, avremo 
VECTR = -IN, poiché è necessario sottrarre il numero di spazi 
presenti su una linea. Andando verso il basso sarà +LN, verso destra 
+ 1, verso sinistra -1, 

Notate la linea ItìO. Qui il computer controlla se la figura ha 
raggiunto il bordo. Viene testata la successiva posizione in cui 
dovrebbe essere memorizzata la pallina, per vedere se vi è il carat¬ 
tere del MURO, altrimenti viene spostata in quella posizione (linea 
200-220). Se c'è un muro, neJla linea 190 viene invertita la dire¬ 
zione di spostamento. 

Se digitate il programma-esempio, sarete sulla buona strada per 
realizzare un gioco del ping-pong tanto veloce quanto lo deside¬ 
rate. 

Quello che resta da fare è di provare diversi valori per la variabile 
VECTR per ottenere diversi angoli di rimbalzo sui muri, così che la 
pallina possa andare dovunque. Quindi si possono aggiungere due 
piccoli muretti (palette) e un punteggio. 

Ping-pong 

ì 00 SCR-1024;COL-5 52 96:PGKE53281,0 
110 MURG-160iREM IL CARATTERE DEL MURO f UN 
QUADRATO PIENO 
120 LN=4 0 

130 GOSUB260: REM DISEGNA IL BORDO 
1 4 0 LOC«SCR+LN*l0+L«/2sCLOC=COL+LN*l0+LN/2 
; REM LOCAZIONI SCHERMO E COLORE 
150 VECTR=LN!REM PROVARE ANCHE -1,+1,LN-1, 
LN+1,ECC, 

160 SPAZ10=32 

170 FIGURARSI lREM CARATTERE 1 PALLINA 1 
180 IF PEEK{LGC+VECTR) OtìURO THEN 200 
1 90 VECTR=“VECTR:REM INVERTE DIREZIONE 
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200 PO KELOC,SPAZIO;REM CANCELLA VECCHIA PA 
LLINA 

210 LGC=LOC+VECTR:CLOC=CLOC+VECTR:REM CALC 
OLA NUOVA POSIZIONE 

220 POKELOC+54 2 72,1 :PQKELQC,tìl :REM DISEGNA 
LA PALLINA 
230 GOTO 180 
240 END 

250 REM SUBROUTINE PER IL DISEGNO DEL BORO 
O 

260 FRI NT 1 '{CLR} 11 ; :REM PULISCE LO SCHERMO 
270 FORI=OTOLN-1:POKE SCR+I,MURO:POKE CQL+ 
1,2:NEXTI : REM PARTE SUPERIORE 
280 FORI-OTOLN-1:FOKESCR+LN*24+1,MURO:POKE 
COL+LN* 24+1,2 :NEXTI:REM PARTE INFERIGR 
E 

290 FORI=0TO24:POKESCR+1* LN,MURO:POKECOL+1 
*LN,2 :NEXTI: REM PARTE SINISTRA 
300 FORI=0T024 :POKESCR+LN-1+I*LN,MURO:POKE 
COL+LN-1+1* LR f 2 :NEXTI: REM PARTE DESTRA 


310 RETURN 


1.5 

Aggiungere 
il joystick 
ai vostri giochi 

Charles Brannon 


Le affascinanti capacità del Commodore 64 spesso implicano 
f uso di numerose istruzioni di PEEK e POKE t che a prima vista 
possono risultare confuse. Questo paragrafo spiega gli elementi 
essenziali neil'uso dei joystick nei vostri programmi BASIC. 

Innanzitutto, se non avete ancora un joystick Commodore, pote¬ 
te utilizzarne uno deila Atari, piu facilmente reperibile, o uno Atari- 
compatibile. Questo vi dà una grande possibilità di scelta. 

All'Interno del problema 

Per capire veramente i joystick dovete sapere come essi funzio¬ 
nano, ma non preoccupatevi: uno joystick non è più complicato di un 
interruttore della luce. Infatti, allinterno vi sono 5 piccoli interrut¬ 
tori che operano come dei pulsanti. Quando spingete il joystick 
verso Nord (su). Sud (giù), Est (destra), Òvest (sinistra) o premete il 
pulsante di fuoco viene chiuso il contatto di un interruttore. 
Potete anche spostare la leva diagonalmente (NE, SE, SO, NO). 
Come possono quattro interruttori dare otto direzioni? Semplice, ! 
joystick sono progettati in maniera che un movimento in. diagonale 
chiuda due interruttori contemporaneamente. 

1 bit del joystick 

Ogni interruttore controlla una parte di una locazione di memo¬ 
ria all'interno del vostro computer. Queste parti sono chiamate bit. 
Un bit può assumere solo due valori: o zero o uno. Zero normal- 
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mente significa niente, falso, vuoto, spento. Uno significa positivo, 
vero, attivo. Sebbene possa sembrare contuso all'inizio, i bit del 
joystick lavorano al contrario. Quando il joystick è al centro (non 
piegato in alcuna direzione) tutti S bit sono attivi. Sono tutti pari a 
uno. Ma se lo spostate verso l'alto, il bit nord diventerà zero. Se 
muovete il joystick diagonalmente in basso a destra, i bit Sud ed Est 
verranno azzerati. 

Economia di silicio 

Sarebbe più facile utilizzare i joystick, se ogni direzione avesse 
una sua locazione di memoria. Cosi potreste analizzare separata- 
mente i bit del Nord, Sud, Est, Ovest e del fuoco. Ma per fare 
economia (bisogna sempre farne quando si progetta un micropro¬ 
cessore, dove i costi sono più che proporzionali alla quantità di 
silicone impiegata) tutti i bit sono stati raggruppati insieme in un 
solo byte di memoria (otto bit = un byte), 

] bit sono ordinati come segue: 


Direzione 

Valore 

con interruttori 

Nord 

spenti 

1 

Sud 

2 

Ovest 

4 

Est 

8 

Fuoco 

16 


Come spiegheremo brevemente, il vostro programma analizzerà 
il joystick osservando il contenuto di questo byte. Il numero in 
memoria sarà la somma di tutti questi valori, Ecco come funzio¬ 
na. 

Ignoriamo il pulsante di fuoco, per il momento. Se la leva non 
viene spostata, nel byte vi è la somma dei valori, cioè 15(1 +2+4+8 
= 15). Se il joystick venisse mosso verso l'alto (nord), il valore del 
nord diventerebbe zero e i valori rimanenti, sommati, darebbero 
14, Se la leva venisse mossa verso sinistra (ovest), il valore ovest si 
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azzererebbe e ì rimanenti numeri darebbero 11. 

La via più semplice per usare un joystick è di leggere la locazione 
di memoria con il comando BASIC FEEK ed usare degli IF/THEN 
per intraprendere la corretta azione per ogni direzione. Riferitevi al 
seguente diagramma: 

14 

10 | 6 
11 — 15 7 


13 

Una serie di IF/THEN può essere questa: 

10 V = PEEK(56321) AND 15 
20 1F V = 14 THEN PRINT «NORD* 

30 IF V = 13 THEN PRINT «SUD» 

40 1F V = 7 THEN PRINT *EST> 

50 IF V = 11 THEN PRINT «OVEST* 

60 IF V = 6 THEN PRINT «NORDEST* 

70 IF V = 5 THEN PRINT «SUDEST» 

80 IF V ^ 9 THEN PRINT «SUDOVEST* 

90 IF V = 10 THEN PRINT * NORDOVEST» 

100 IF V = 15 THEN PRINT «CENTRO» 

110 GOTO 10 

La linea 10 legge il valore del byte del joystick e Io conserva in 
una variabile, V. II numero 56321 è la locazione di memoria per la 
porta dei joystick 1. L'istruzione PEEK legge questa locazione, ma i 
valori ottenuti non saranno esattamente da 0 a 15, Vi sono, infatti, 
informazioni per altre funzioni, come il pulsante di fuoco del joy¬ 
stick. l'operazione AND 15 isolai valori a noi necessari, mettendo a 
zero r bit non desiderati, Non daremo qui una spiegazione di come 
ciò avvenga. 
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Chi è il primo? 

Potete leggere il secondo joystick {porta 2) sostituendo il numero 
5&320 a! numero 56321 nella linea 10. Potrebbe sembrare logico 
che il joystick letto nella locazione 56320 sia il primo, poiché ha il 
numero più piccolo, ma ciò non è vero. In ogni caso non potrete 
confondervi, poiché a lato del Commodore 64 è chiaramente indi¬ 
calo qual'è il primo e quale il secondo. 

Noterete, inoltre, che azionando il primo joystick si avrà l'im¬ 
pressione di premere dei tasti. Questo è un problema di natura 
elettronica del vostro computer, ma vi permette dì utilizzare quei 
giochi che richiedono l'uso del joystick per mezzo dei tasti della 
parte sinistra della tastiera. Non è comunque un metodo affidabi¬ 
le. 

Un’altra strada 

Sebbene il programma-esempio visto prima sta in grado di leg¬ 
gere la posizione dei joystick, non è necessariamente la migliore 
strada per farlo, L'istruzione IF/THEN è una delle più lente in 
BASIC così se la velocità è importante (come nei giochi), ci sono 
soluzioni piu efficienti. Ecco un metodo più veloce. Cambiate la 
linea 10 in: 

10 V = Ì5-(PEEK(56321) AND 15) 

Ora avremo i valori: 





: 


Notate che ora l'intervallo tra i numeri è più piccolo. Si possono 
quindi usare i valori come indice in un vettore. Guardate come ciò 
sia possibile e come si riduce il programma — esempio preceden¬ 
te: 
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10 POR 1=0 TO 10:READ A$:ME5SAGGJOÌ (l)=A$;NEXT I 
20 DATA CENTRO, NORD r SUD,,OVEST, NORDOVEST, SUDO- 
VE5T„EST, NORDEST, SUDEST 
30 V-lS-(PEEKf56321) AND ìS) 

40 FRINT MESSAGGIO® (V);GOTQ 30 

MESSAGGIO® (sr legge messaggio-stringa) è un vettore-stringa 
Un vettore-stringa è una variabile con un solo nome, che contiene 
una intera lista di stringhe (una stringa è ogni serre di caratteri). Ogni 
stringa ha il suo posto nel vettore. Noi richiamiamo un elemento 
della lista (vettore) per mezzo del suo numero. Il ciclo di READ alla 
linea 10 riempie il vettore MESSAGGIO® con dieci stringhe. Se noi 
diciamo PRINT MESSAGGIO® (0) otterremo la parola CENTRO. 
PRINT MESSAGGIO® (5) ci darà NORDOVEST. 

Alcuni degli elementi delle frasi DATA sono seguiti da due vir¬ 
gole, che sono i separatori. Per il computer tra le due virgole vi è 
una stringa vuota. Questo ci fa risparmiare la fatica di digitare degli 
elementi di cui non abbiamo bisogno (infatti, alcuni numeri nell'in¬ 
tervallo 0-10 non corrispondono ad alcuna direzione del joy¬ 
stick). 

Tavola di ricerca per aumentare la velocità 

Stampare il messaggio indirettamente, usando il numero che 
viene dal joystick, è una forma di tavola di ricerca. 

Invece di obbligare il computer a muoversi in un mucchio di 
IF/THEN, o a cercare la risposta in una lista, la tavola di ricerca dà 
una risposta più diretta e veloce. Tutte le possibili risposte sono già 
determinate. Questo è specialmente utile nei giochi, dove la velo¬ 
cità è importante. Ad esempio, si può utilizzare un carattere diverso 
per ogni direzione verso la quale è rivolto il giocatore e metterli in 
un vettore, che può essere selezionato attraverso 11 numero del 
joystick. 

Tecniche speciali 

Potete, anche, leggere il joystick mascherando (isolando) ìE bit 
che vi interessa. Ricordate che ogni direzione ha un suo numero 
associato. Se vogliamo analizzare fa direzione Nord, sarà sufficiente 
guardare al bit di questa direzione. Ma se stiamo testando tale bit, 
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noi intercetteremo anche le direzioni Nordest e Nordovest, che 
avremmo invece trascurato con un semplice IF/THEN. 

Ecco come isolare il bit Nord: 

V = (15-PEEK(56321 ) AND 15) AND 1 

Se V=0 il joystick non è piegato verso Nord. Se V=1 è stato 
inclinato verso Nord, Nordest o Nordovest. 

Per verificare la direzione Est (Ovest): 

V=(Ì5-PEEK(56321) AND 15) AND 4 

Se V=(X non ci sono movimenti verso sinistra. Se V=4 (si, 4, non 

I ), la leva è piegata a sinistra, Nordovest o Sudovest. Visto come è 
possibile separare le quattro possibili direzioni dalle altre quat¬ 
tro? 

Cosi, per testare ogni direzione, utilizzate: 

V=PEEK (15-PEEK(56321) AND 15} AND numero 

V (o qualsiasi altra variabile) sarà o zero (joystick non inclinato) o 
diversa da zero (inclinato). Sostituite 1,2,4, o 8 al posto di numero 
(l^su, 2^giu, 4=sinistra, tì=destra). 

II pulsante di fuoco 

È possibile analizzare il pulsante del joystick, chiamato anche 
tasto di fuoco o grilletto, con: 

B1 = PEEK(S6321) AND 16 (per la porta numero 1) 

B2 = PEEK{5632Q} AND 1 b (per la porta numero 2) 

Un valore zero vuol dire che il pulsante è premuto. Un valore 
diverso da zero (16) significa che il pulsante è rilasciato. Per esem¬ 
pio, se desiderate attendere che l'utente prema il pulsante per 
cominciare un gioco, potreste utilizzare il seguente ciclo: 

500 IF (PEEK{56321 ) AND 16)<>0THEN 500 

È naturai# 

Utilizzando un joystick nel vostro prossimo gioco lo renderete 
più semplice, poiché usare il joystick è piu naturale che premere 
dei tasti della tastiera. Ma ricordate che è solo uno strumento; non 
sposterà degli oggetti sullo schermo al vostro posto, ma vi dira 
soltanto in che direzione l'utente sta inclinando la leva. 
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G sono altri usi per il joystick, oltre i fiochi. Diversamente dalla 
tastiera, con i suoi 50 tasti da gestire, il joystick limita i dati in 
ingresso a soie nove possibilità (le otto direzioni più il pulsante di 
fuoco). Lo si può usare per selezionare le opzioni di un menu, per 
rispondere a semplici domande (sinistra - si, destra = no) ed anche 
per introdurre dei testi (come fate nei giochi da bar quando battete 
il record). 

Analizzate il seguente programma per ulteriori idee. 

Spiegazioni sul programma 

Questo programma contiene tre subroutine che potrete utilizza¬ 
re nei giochi scritti da voi. Le linee 10-70 applicano semplicemente 
queste subroutine e vi illustrano come usarle. La subroutine 500 
accetta come risposta solo un sì o un no e la risposta in A$. 

Le linee 700-770 permettono all'utente dì immettere un numero, 
facendolo crescere o decrescere con il joystick, il numero può 
essere letto nella variabile C C non può superare i lìmiti di MN 
(minimo) e di MX (massimo). Premendo il pulsante del joystick si 
termina. Notate distruzione POKB 198,0, Poiché ii primo joystick 
interferisce con la tastiera, con questo POKE la si disabilita. 
Potete utilizzare la subroutine alta linea 600 per accettare una 
lettera dell'alfabeto. La lettera è restituita come numero da 1 a 26 
nella variabile C Nel programma-esempio (linea 20) è utilizzata per 
accettare una stringa di tre caratteri come iniziali del nome. 

Esempio di uso del joystick 

>0 PRINT m DAMMI LE TUE INIZIALI ì 1 '} 

20 GOSUB 800 : N$=N$+CHR$ (C + 64 ) : IFLEN { N$ )< 3T 
HEN20 

30 PRI NT: FRI NT "QUANTI ANNI HAI? *';:GOSUB70 
0 : ANNI-C 

4 0 PRINT : PRINTNS ;" f DICI DI AVERE"; ANNI;"A 
NNX * " 

50 PRINT:PRINT"E 1 VERO?"?iGOSUB500 
60 PRINTAS ; IFA$ = "SI "THENPRINT 1 ' BUON PER TEI 
11 : END 

70 PRI NT ,T E ALLORA QUAL ‘ E 1 LA VERITÀ? " : GOTO 
3Q 
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500 REM SUBHOUTINE PER SI/NO 
50 5 A$- Tl 11 

510 V”15-(PEEK(56321)AND(15)) 

520 IP (VARD4}>0 THEN A$= m NO" 

530 IF (VAND3)>0 THEN A$* t, ST ti 
540 IF A$- t, "THEW51 0 

550 POKEl98,0: REM DISABILITA TASTI 
560 RETURN 

600 REM SUBROUTINE DI CONTEGGIO 
610 REM C CONTERRÀ* IL RISULTATO 
620 REM LE VARIABILI MX E MN CONTROLLANO 
630 REM IL MASSIMO E IL MINIMO VALORE 
640 REM PERMESSO. USARE GQSUB 700 PER I 
650 REM VALORI DI DEFAULT (1 É 39) O 
660 REM GOSUB 710 SE LI VARIATE* 

700 MN-1iMX-99 

710 C=MN _ „ 

720 FRINTRIGHT$ ("{ 2 SPAZI} "+STR$ (C) , 2) ; 

£ 2 SIN} 11 ; 

730 V=1 5-(PEEK£56321 )AND(15)) 

740 C=C+((VANDB)=8 )*(C<MX)-([VAND4)=4)*(C> 
MN) 

7 50 REM SE E T PREMUTO IL TASTO DI FUOCO, T 

ÈRMINA 

760 IF [PEEK(56321)AND!6)=0 THEN POKE l98 f 
0 :PRiNT"{ 2 DES}";: RETURN 
770 GOTO 720 

300 REM INGRESSO TESTI: SIMILE ALLA ROUTIN 
E DI CONTEGGIO 
810 C=1 

820 PRINTCHRS ( 64+C) {SIN} 11 ; 

830 V=15-(PEEK(56321)AND£15)) 

34 0 C=C+((VAND8)-8}*(C<26)-((VAND4) = 4) * (C> 

8 50 IF(PEEK( 56321 )AND!6)=0THENPOKEl 98,0:PR 

INT" { DES } ,f ; : RETURN 
860 GOTO820 
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2.1 

Topi! 

Mike Steed — Versione per C64 di Gregg Peele 

Questo gioco vi dà l'impressione dì trovarvi dentro un labirinto e 
non di vederlo dall'alto. Vedete ì corridoi , te porte e gli angoli in tre 
dimensioni mentre lottate per trovare la via d'uscita . 

Dovete uscire da un labirinto visto dall'occhio di un topo. Dopo 
aver raggiunto l'uscita il programma vi mostra la pianta del labirinto 
e la via che avete percorso. 

All'inizio vi viene chiesto dì scegliere le dimensioni del labirinto: 
possono arrivare fino a 15 per 15 (potreste voler cambiare l'istru¬ 
zione DIM alla linea 49 — aggiungete 2 alle dimensioni massime 
desiderate — e la linea 43). La linea 45 controlla se è già stato 
eseguito il POKE dei codici per le routine In linguaggio macchina, 
perciò solo la prima volta sarà necessario attendere per questo. 

La barra spaziatrice serve per andare avanti, i tasti J e L per girare, 
rispettivamente, a sinistra e a destra (girare non vi fa muovere daf 
punto in cui vi trovate, ma vi mostra ciò che si vede nella nuova 
direzione). Il tasto M vi fa vedere la pianta del labirinto, la vostra 
posizione e la direzione In cui state andando, 

Ci sono cinque routine in linguaggio macchina in «Topici 

UN E che, come dice il nome, disegna una linea; questa routine è 
simile ai comandi HPLOT TO dell'Applesoft o DRAW IO del 
BASIC dell'Atari. 

PLOT posiziona il cursore in alta risoluzione nel punto dal quale 
deve essere disegnata la linea seguente e mostra tale punto sullo 
schermo. 

COLOR seleziona t colori sullo schermo. 

1M1T cancella dallo schermo qualsiasi carattere che non sia una 
lettera o un numero (perciò vengono cancellati i quadratini, ma non 
SMOSSA XX* in fondo allo schermo} ed azzera tutte le variabili 
usate dalle altre routine (locazioni 826-837). 

SCR carica o salva qualcosa su o dallo schermo. Questa routine 
viene utilizzata per salvare in memoria ciò che appare sullo scher¬ 
mo dopo che la pianta del labirinto è stata mostrata per la prima 
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volta, e in seguito è utilizzata per visualizzare il labirinto quasi 
istantaneamente, in modo che sia necessario attendere solo la pri¬ 
ma volta. 

Come digiterò il programma 

Ogni volta che fate girare «Topi»! dovete prima preparare il 
computer col programma 1. Coloro che usano il nastro non devono 
digitare la linea 1 80, mentre coloro che usano i! disco non devono 
digitare la linea 190, 

Il programma 1 carica e dà automaticamente il RUN al program¬ 
ma 2. Perciò occorre che chi usa il nastro registri il programma 2 
immediatamente dopo il programma 1 ; chi invece usa il disco deve 
registrare ti programma 2 sullo stesso disco sul quale si trova il 
programma 1, usando il nome «TOPI». 

«TOP!li — prima parte 

100 POKEl6384,G:POKEl6385,0 

no POKE 56 5 78, PEEK (56578) OR 3 

120 POKE56576 ,(PEEK(56576)AND252)ORI 

130 POKE532 72 f 4 :POKE64 8,1 28 

140 POKE5 3 2 80,1 2 :POKE53281,12 

145 POKE641,0 :PQKE642,64 

1 50 POKE4 3,1 t POKE44,64 :POKE55,0 :POKE56,128 

;POKE64 6,1 SPRINT 1 ' (CLR}" 

180 LOAD^TOP I - 2 ", 8 : RUN :END : REM SOLO PER DI 
SK DRIVE 

190 REM POKE 198,1 :POKE 631,131 : END:REM SO 
LO PER REGISTRATORE 

«TOPI!» — asconda parte 

2 REM SALVATE IL PROGRAMMA SU DISCO CON IL 

NOME "TOPI,2" 

3 PRINT CHR$(14 2):GX= 491 52 : GOTO 38 

4 REM VISTA TRIDIMENSIONALE 

5 N = 2 :A=H:B-V:FF=21[F-l) rSYS IN 

6 Z-M%(A r B)*FF:IF ((2/16) AND 1)=1 THEN RL 
= -l:GOSUB 2 5 : GOTO 8 


34 


Giochi di labirinto 




7 W-M%(A+S,B-R)*FF:IF ((W/129) AND 1 ) =1 TH 
EN RL=“1 * GOSUB 21 

8 XF ((Z/64 > AND 1)=1 THEN RL-1:GOSUB 25 :G 
OTO 10 

9 W=M$(A-S,B+R)*FF:IF ( [W/l 28) AND 1> =1 TH 
EN RL=1;GOSUB 21 

10 IF ((Z/128Ì AND 1)=1 THEN 14 

11 N=N+1:IF N>8 THEN 15 

12 A=A+R;B s B+S:IF B<2 THEN 15 

13 GOTO 6 

14 GOSUB 1 7 
ì 5 RETURN 

ì 6 REM CENTRO 

17 POKE HX,VX+DX(N): POKE HY,YU(N):SYS PL:P 
OKE HY,YD(N)•SYS LI 

18 POKE HX,VX-DX (NT) : SYS LI i POKE HY # YU(N):S 
YS LI. : POKE HX,VX+DX(N) : SYS LI 

19 RETURN 

20 REM INDIETRO 

21 POKE HX,VX+RL*DX(N-l) :POKE HY t YU(N) * SYS 

PLiPOKE HX,VX+RL*DX(N)JSYS LI 

22 POKE HY,YD(N) : SYS LI:PQKE HX,VX+RL*DX(N 
-1):SYS LI 

23 RETURN 

24 REM DESTRA E SINISTRA 

25 POKE HX,VX+RL*DX{N-1):POKE HY f YU(N-1):S 
YS PL'POKE HX,VX+RL*DX(N) 

26 POKE HY, YU( N) ; SYS LI t POKE HY,YD(N):SYS 
LI;POKE HX r VX+RL*DX(N-l) 

27 POKE HY,YD(N-ì) : SYS LI;POKE HY,YU{N~1): 

IF N>2 THEN SYS LI 

28 RETURN 

29 REM INPUT CARATTERE DA TASTIERA 

30 GET A$:IF A$=”° THEN 30 

31 RETURN 

37 REM INI ZIALIZZAZIONE 

3 8 HX-828 :HY= 829;LINE=1 2288:PLOT=1 2665;INI 
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T=1 2685 :SCR=1 2725 

39 FL=1 2726 :FH=1 273G:TL=1 2734 :TH=12733 

40 PRINT "{CLRH 5 GIU 1 }{ 17 DESlTOPXl 

41 PRINT ”{ 2 GIU 1 1{DES}RISOLVETE IL LABIR 
INTO VISTO DAL TOPO" 

42 INPUT u [ 3 GIU 1 }DIMENSIQNI DEL LAEIRINT 
O {H,V){ 3 SPASI}3,3{ 5 SIN] M ;H,V 

43 IF H< 3 OR H>15 OR V<3 OR V>1 5 THEN 40 

4 4 PRINT " [CLR] {GIU 1 } ATTENDERE PREGO 

4 5 IF PEEK(LI)=32 AND PEEK(LI+1) =33 AND PE 
EK(LI+2) =4 S THEN 48 

46 CK”0:EOR L-12288 T0 12761iREAD A:POKE L 
,A :CK=CK+A:NEXT:FORK”GXTOGX+ 2 3iREADGX 

47 POKER,GXiNEXT: IF CKO501 44 THEN PRINT 11 
{GIU'ÌERRORE NELLE ISTRUZIONI DATA"; STO 
P 

43 N=H*V-1:H=H+1:V=V+1:D”1 

4 9 DIM K%<17,17) ,WALK(100) ,CUT(5) ,DX [8) ,YO 
{8} ,YD ( 3) 

50 POR J=1 TO V+l:M%[1,J)=4:M%(H+1,J)=1:NE 
XT 

51 MX-7 9:MY= 4 9 :VX=39:VY= 2 4:X=VX 

52 FOR J=1 TO & :DX(J)=X:YU{J)=INT(VY-X*VY/ 
VX):YD(J)=INT(VY+ X* ( HY-VY)/VX) 

53 X=INT(X*7/10}:NEXT 

54 FOR 1 = 2 TO H:M % CI# V+1)=S;M%(I,1)“2:FOR 
J= 2 TO V: m (I,J)=15rNEXT:NEXT 

55 R=INT(H/2) +1 :S=INT(V/2)+1 JM%(R,S)=1 5 

56 PRINT M fCLR}{GIU 1 }STO GENERANDO IL LARI 
RINTO***”;:GOSUB 2000 

57 REM GENERAZIONE DI UN LABIRINTO CASUALE 

[ALGORITMO DI ROGERS E STRASSBERGER) 

58 FOR I WALK= 1 TO !Sf 

59 I=Z 

60 IF M%( R- 1 f S)>14 THEN 1=1 + 1;CUT (1 )=1 

61 IF M%(R,S-1)>14 THEN 1 = 1 + 1:CUT(I )=2 

62 IF M%(R+1 /S) >14 THEN 1 =1+1iCUT(I)=3 

63 IF M% (R jr S+l ) > 1 4 THEN 1 = 1 + 1 :CUT ( I ) =4 
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65 

66 
67 
6 S 

69 

70 

71 

72 


IF 1=0 THEN 75 

IF IO! THEN I = INT[RND(1) *1)+1 
ON CUT(I) GOTO 67,69,71,73 
m (R,S)(R,£)-(M*(R,S) AND l)iR=R-l 
Mt( R f S )-M%(R f S)-{( M % ( R # S )/ 4} AND 1)*4:G 
OTO 0 6 

M%(R,S)=M%(R,S}-[(M%(F,S)/B) AND ])*8:S 


= S-1 

MI(R f S)“M%(R,S)-((M%[R,S)/2) AND 1)*2:G 
OTO 86 

m (R # S) =MI (R,S) - ( (MMRrS) /4) AND 1)*4:R 

-R+l 

M%(Rf S)=M%(R*S)-(M%(Rf S) AND 1) : GOTO 86 


73 H%(R,S)=«%(R,S)-((M%(R,S)/2) AND ]}*2:S 
=S+1 

74 M%[R,5)-M%{R,S)-((M%(R,S)/8) AND 1)*8;G 
OTO 86 

75 IF D=-l THEN 79 

76 IF ROH THEN 83 

77 IF SOV THEN 82 

7 3 R= 2 :S = 2 ì GOTO 84 

79 IF R<>2 THEN 83 

80 IF SOV THEN 82 

81 R=H:S = 2 ; GOTO 8 4 

82 $=S+1 :D—DiGQTO 84 

83 R=R+D 

84 IF M%{R,S}=15 THEN 75 

85 GOTO 59 

86 NEXT IWALK 

87 MH=H:MV“V:I=INT(RND{1)*(MH-1))+2 

8 8 I, 2) =M% U, 2) - ( <M% ( 1,2) /&) 

AND 1 )*8 

89 H-TNT(RND(1)*(MH-1))+2iHl=H:Vl=V 

90 PRINT IT {CLRHGIU ' } IL LABIRINTO E' STATO 

COMPLETATO*.."ìGOSUB 2000:GOTO 105 

91 REM PIANTE DEL LABIRINTO 
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92 HZ=INT(79/MH):VZ=INT(49/MV) 

93 SYS IN:POKE 214,24:PRINT TAB(25);"{SU} 

( 9 SPASI}{HOME} 

94 POKE HX,1+HZ:PGKE HY,1+VZ:SYS PLrPOKE H 
Y,MV*VZ+1 :£Y£ LI 

95 FOR J=1 TO MV:FOR 1 = 2 TO MH:N=M%(I,J) ì X 
=I*HS+1;Y=J*VS+1 

96 IF ((N/2) AND T)-1 THEN POKE HX/X:PGKE 
HY,YrSYS PL:POKE HX,X-H2:SYS LI 

97 IF ((N/4) AND 1)=1 THEN POKE HX,X;POKE 
HY,Y:£YS PLiPOKE HY,Y-V£:SYS LI 

98 NEXT:NEXT 

99 RETURN 

1 00 REM POSIZIONE DEL GIOCATORE 

101 X=H*HZn;Y=V*VZ-1-POKE HX,X+l:POKE HY, 
Y+1;SYS PL 

102 POKE HX,X-HS+2:POKE HY,Y-VZ+2:SYS LI:P 
OKE HY,Y+2: SYS PL 

103 POKE HX,X+ 2 ;POKE HY,Y-VZ+2:SYS LI 

104 RETURN 

105 FOR X=1 TO MH:FOR Y=1 TO MV: Mi(X,Y)-Mi 
(X,Y)+M%(X,Y)*16 :NEXT:NEXT 

106 REM GIOCO 

107 F s INT(RND(1)*4}+1:ON F GOTO 108,109,11 

0,111 

108 R=0 :5 = -1 : GOTO 1 1 2 

109 R=+l : S = 0 : GOTO 112 

HO R= 0 ; S=+I ; GOTO 1 1 2 

111 R--1 i S=0 

112 PRINT "{CLRj { GIU'}PREMI {RVS}J[OFF} PE 
R GIRARE A SINISTRA" 

113 PRINT "(GIU T }PREMI {RV£]l{OFF} PER GIR 
ARE A DESTRA" 

114 PRINT n {GIU 1 }PREMI fRV$}5PAZIO{0FF} PE 
R ANDARE AVANTI 1 ' 

115 PRINT "{GIU'}PREMI {RVS]M(0FF} PER VED 
ERE LA PIANTA" 

116 PRINT "{ 3 GIU ! } f RVS} PREMI UN TASTO P 
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ER CONTINUARE" 

117 GOSUB 30:PRINT "(CLR} H ; :SYS4915 2 :GOSUB 

5 

118 REM INPUT DA TASTIERA 

119 GOSUB 30 

120 GN - [AS = tl J' 1 ) “2*(A$= t, L 11 )-3*(A$ = " ")-£*( 
A$ = m M") GOTO 1 22,1 24,131,1 36 

121 GOSUB 2000 ; GOTO 112 

122 F=F-1:IF F <1 THEN F=4 
1 2 3 GOTO 12 5 

124 F=F+1ilF F>4 THEN F=1 

125 ON F GOTO 126,127,128,125 
1 26 R=0:S--1: GOTO 130 

127 R=+1 :S s 0: GOTO 130 
1 28 R=Q; S = +1 (GOTO 130 

129 R --1 : S “0 

130 GOTO 135 

131 2=M%{H,V)i T=Z* 21(F-1) £ T-(T/l 2 0) AND lì 
IF T=1 THEN GOSUB 2000; GOTO 119 

132 NM=KM+l:POKE 214,24:PRINT TAB(25);" 

{SU}MOSSA" ; NM; 11 {HOME} " ; 

133 IF NM<100 THEN WALK(NM)=F 

134 H-H+R:V=V+St IF V<2 THEN 147 

135 GOSUB 5 ;GOTO 119 

136 IF NOT MS THEN 133 

137 POKE FL,21 8 ; POKE FH, 49: POKE TL,0:POKE 
TH, 128: SYS SC;GOTO 139 

138 GOSUB 92:POKE FL,0;POKE FH, 128:POKE TL 
,21B:POKE TH,49;SYS SC:MS=-1 

139 GOSUB 101;PRINT "{HOME)SEI DIRETTO A " 
; : OH F GOTO 140,141,142,143 

140 PRINT "NORD" ; :GOTO 144 

141 PRINT "EST";:GOTO 144 

142 PRINT "SUD 11 ; : GOTO 144 

143 PRINT "OVEST"; 

144 PRINT 2 SPASI}PREMI UN TASTO PER": 

PRINT "CONTINUARE";GOSUB 30 
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14 5 PRINT MHOMEH 39 SPAZI} 11 : PRINT " 

{ 10 SPAZI} 11 

1 4 6 GOSUB 5 :GOTO 1 1 9 

147 GOSUB2000 : V=V1 :H=Hl :IF MS THEtJ POKE FL 
,218:P0KK FH,4 9 ;POKE TL,0 r POKE TH,12 B 

148 IF MS THEN SYS SC:GOTO 150 

149 GOSUB 92 

150 GOSUB 101 

151 PRINT "{HOME] (GIU' ì CONGRATULAZIONI-SEI 

USCITO IN";NM;"MOSSEJ 11 

152 REM CAMMINO SEGUITO 

153 POKE HX,H*HZ-HZ/2+l iPOKE HY,V*VZ-VZ/2+ 
1:SYS PL 

154 FOR N=1 TO NM:IF N>1G0 THEN 158 

1 55 F=WALK{M) :V=V+{F=1)-(F=3>:H = H+(F=4)-(F 
= 2 ) 

156 POKE HX r H*HZ-HZ/2+l :POKE HY ,V*VE-VS/2 + 
1 : SYS LI 

157 NEXT 

1 58 PRINTi END 


1 60 

DATA 

32, 33, 

co 

173, 

58, 

3, 

1 33, 

2 

1 70 

DATA 

173, 59, 

3, 

133, 

1 95 

, 32 

, o. 

49 

1 80 

DATA 

173, 62, 

3, 

205, 

63, 

3, 

ì 6 , 

8 

1 90 

DATA 

240, 6 , 

32, 

173, 

48, 

76, 

3, 

48 


200 DATA 96, 16 9 # 128, 24, 109 r 60, 3, 56 
210 DATA 237, 53, 3, 141, 63, 3, 169, 128 

220 DATA 24, 109, 61, 3, 56, 237, 59, 3 

230 DATA 141, 64, 3, 162, 128, 142, 66 , 3 

240 DATA 142, 69, 3, 232, 142, 67, 3, 142 

250 DATA 68 , 3, 173, 63, 3, 201, 128, 176 

260 DATA 11, 169, 127, 141, 68 , 3, 169, 0 

270 DATA 56, 237, 63, 3, 41, 127, 141, 63 

280 DATA 3, 173, 64, 3, 201, 128, 176, 11 


290 

DATA 

1 69 

, 127 

, 141, 67, 3, 169, 0 , 

56 

300 

DATA 

2 37 

, 64, 

3, 

41 , 127, 141 

, 64, 

3 

310 

DATA 

173 

, 63, 

3, 

205, 64, 3, 

1 76, 

32 

320 

DATA 

1 74 

, 63, 

3, 

172, 64, 3, 

142, 

64 

330 

DATA 

3, 

140, 

63, 

3, 173, 68 , 

3, 141 


40 
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340 

DATA 

66, 

3, 173, 

67, 3, 141, 

69, 3 

3 50 

DATA 

1 69 

, 128, 141, 67, 3, 141, 68, 3 

360 

DATA 

173 

, 63, 3, 

74, 141, 65 

, 3, 169 

370 

DATA 

0, 

141, 62, 

3, 96, 173, 

68, 3 

330 

DATA 

56, 

233, 128, 24, 109, 

58, 3, 141 

390 

DATA 

58 , 

3, 173, 

69, 3, 56, 

233, 128 

400 

DATA 

24, 

109, 59 

, 3, 141, 59 

, 3, 173 

410 

DATA 

65, 

3, 24, 

109, 64, 3, 

141, 65 

420 

DATA 

3 r 

238, 62, 

3, 173, 65, 

3, 205 

430 

DATA 

63, 

3, 48, 

35, 240, 33, 

56, 237 

440 

DATA 

63, 

3, 141, 

65, 3, 173, 

66, 3 

4 50 

DATA 

56, 

233, 128, 24, 109, 

58, 3, 141 

4 60 

DATA 

58, 

3, 173, 

67, 3, 56, 

233, 128 

470 

DATA 

24, 

109, 59 

, 3, 141, 59 

, 3, 96 

480 

DATA 

1 69 

, 0, 133 

, 168, 169, 

32, 133, 1 


96 

490 DATA 165, 2, 201, 30, 176, 56, 165, 19 


5 


500 

DATA 

234 

201 , 

50, 

176, 

50, 

234, 

234 , 

234, 

51 0 

DATA 

70, 

2, 38 

, 168, 106, 38 

, 168, 133 

520 

DATA 

195, 

io. 

10 , 

101 , 

1 95, 

10 , 

10, 38 

530 

DATA 

1 33 

1 96, 

10 , 

38, 

196, 

234 , 

234 , 

234, 

540 

DATA 

168 

195, 

1 66, 

168 

, 189 

, 9 9, 

49, 

ì 33, 

550 

DATA 

1 64, 

2, 177, 

1 95, 

1 62, 

15, 

221 , 1 


03 


560 

DATA 

49, 

240 , 

4, 202 

, 16, 

248 

, 96, 173 

570 

DATA 

98, 

49, 

240, 6, 

1 38, 

5, 

168, 170 

580 

DATA 

208, 

3, 

138, 73 

, 255 

, 5 , 

168, 73 

590 

DATA 

255, 

170 

, 139, 

1 03, 

49, 

164, 2 , 1 
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600 

DATA 

1 95 # 

96, 

1, 1 

r 2, 

4, 8, 

32 


61 0 

DATA 

1 26 jr 

123 

, 97, 

124, 

226 , 

255, 

236, 


1 08 








620 

DATA 

1 27, 

98, 

252, 

2 2 5, 

251 , 

2 54, 

1 60, 


2 34 








630 

DATA 

0, 1 

73, 

60, 3 

, 141 

, 58, 

3, 1 

33 

640 

DATA 

2, 1 

73, 

61, 3 

, 141 

, 59, 

3, 1 

33 

650 

DATA 

1 95, 

32, 

0, 4 

9, 96 

, 162 

, ] 28 

, 160 

660 

DATA 

0, 1 

34, 

254, 

1 32, 

253, 

177, 

253, 


41 








670 

DATA 

12 7, 

201 

, 64, 

48, 

2, 169, 32 

, 145 

680 

DATA 

2 53 i 

20 0 

, 208 

, 241 

, 232 

, 224 

, 132 


, 208 








690 

DATA 

232, 

1 69 

, o. 

170, 

157, 

58, 3 

, 232 

700 

DATA 

224, 

12, 

203, 

248, 

96, 

169, 

21 8, 


1 33 








71 0 

DATA 

251 , 

169 

, 49, 

1 33, 

252, 

169, 

0, 1 


33 








720 

DATA 

253, 

169 

, 128 

, 133 

, 254 

, 162 

, 4, 


160 








730 

DATA 

0, 1 

77, 

251 , 

145, 

253, 

1 36, 

208, 


249 








740 

DATA 

230 , 

252 

, 230 

, 254 

, 202 

, 48, 

2, 2 


08 








750 

DATA 

240, 

96 






1000 DATS 

. 1 62 

, o. 

169, 

1, 1 

57, 0 

, 216 

, 157 

1010 DATA 

> 0, 

21 7, 

1 57, 

0, 218, 1 

57, 0 

, 219 

1020 DATA 232 

, 20 

8, 2 4 

1 , 96 

, 234 

, 234 

, 234 


, 0 

2000 30=54272:FORE=SGTOS0+28:POKEE,0:NEXT 
2010 POKE54296, 15 :POKE54277, 51 :POKE542 
78, 211 
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2020 POKE 54276, 33 :POKE 54273, 63 rpOKES 
4272, 75 

2030 FORT=ÌTO 200 :NEXT:POKE54276, 32:FORT 
=1TO 100 :NEXT 

2040 FORE~SOTOSO+28: PQKEE ,0:NEXT 
2050 RETURtf 


i 
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2.2 

Folletto 



In «Folletto* vengono usar/ dei caratteri creati dall'utente per 
dare vita ad un gioco semplice, ma divertente. Lo scopo consiste 
ne! catturare delle bieche creature col vostro «Folletto^ evitando ì 
numerosi ostacoli che incontrate su! vostro cammino. 

Dopo aver disegnato gli ostacoli e le facce torve il gioco inizia 
quando compare sul fondo dello schermo il personaggio principa¬ 
le. Col procedere del gioco il folletto si muove continuamente 
verso l'alto, mentre il giocatore può solo controllarne il movimento 
orizzontale. I tasti O e P, insieme all'istruzione GFF alla linea 260, 
permettono al giocatore di muoversi, rispettivamente, verso sini¬ 
stra e verso destra. Ai bambini; piace particolarmente l'effetto «cu¬ 
mulativo» dell'istruzione GEI: premono i tasti più volte, rapida¬ 
mente, ed aspettano per vedere gli effetti del ritardo. 

Per ogni faccia catturata dal folletto il punteggio viene aggiornato 
e mostrato nell'angolo in alto a sinistra. Se egli riesce ad eliminare 
tutte le facce dallo schermo, viene disegnato un nuovo campo. Il 
gioco può durare finché volete. 

Ogni singola partita termina quando il folletto va a sbattere con¬ 
tro un ostacolo. A questo punto le facce torve sorridono e vi viene 
chiesto se volete giocare di nuovo. 

Se giocate di nuovo, all'inizio del gioco verrà mostrato il pun¬ 
teggio più alto raggiunto in precedenza. L'incentivo a superare un 
record rende il gioco ancora più divertente. 


FOLLETTO 

80 POKE 532 80,2 :POKE 53281,1 

90 FRINT" [CLFM 7 GIU 1 }{CES}ATTENDI PREGO. 

..STO CREANDO I CARATTERI" 

100 POKE 52,48: POKE 56,48:CLR: P0KE56334, PE 
EK( 56334) AND 2 54 
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105 POKEl,PEEK(1 )AUD251 

108 FORN=0TO2G47iPOKEN+12288,PBBK(N+53248) 

:NEXTN 

109 FOR R-0 TO 7 :POKEN+1 232G,PEEK(N+54064) 

!NEXT N 

110 IFS >HSTHENHS-S 

112 RESTOREtB=4:Z-l964{ZI=2+54272:W-0:S=J: 
G=0 

115 VS= 54296 :AD= 542 77:SR=54 2 78:WF fc 54276 :LB 
= 54 2 72:HB = 54 2 7 3 

120 FOR X-0TO31:READ A :POKEX+1 2 288 f ArNEXT 
123 POKE 1 f PEEK(1)OR4:POKE5 63 3 4 ,PEEK (56334 
) ORI 

125 PQKE 53272 f (PEEK(53272)AND240)+12 
130 PRINT" {CLRHGRN} [ 12 DESHFVSlF O L L 
ETTO" 

140 PRINT"! HOME } { RED} [ 2 Q TU r } ( RVS ) »$PC ( 1 7 
)"HS = "HS 

145 FRINT"{HOME } {BLK} { 22 GlU 1 }{ RVS}0=3INI 
STftA”;SPC[21); n F=DESTRA" 

1 SO FOR 1 = 1 TO 118 

160 X s INT(RND(1)*680)+1144 

170 IFPEEK(X)=BTHEN 160 

180 POKEX ,r Bi POKEX+ 54272 T 0 t NEXTI 

190 FORICIT036 

195 Gl“0 

200 X=INT(RND[1)*680)+1144 

210 IF PEEK{X)=BORPEEK[X)=1ORPEEK(X)=3THEN 
200 

220 IFPEEK(X+39)=BANDPEEK(X+40) =BANDPEEK [X 
+41)=BTHENPOKEX,3 :POKEX+54272,Q; Gl=1 
225 IF Gl=1 THEN G=G+1iGOTO 240 
230 POKEX # l:POKEX+54272,Q 
240 NEXT I 

250 POKEZ,32:Z=Z-40i2l=21-40;IF 2<1144 THE 
N Z=Z+760:Zl= Zl+760 
260 GET A$ : IFA$'= 1, G’ I THENZ =Z ~ 1 :Zl=Zl-l 
270 IFA$="P"THENZ=Z+1rZl= Z1+1 


! 
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330 IFPEEK(Z)=B THEN 410 

290 IFPEEK(Z)=1 THEN GOSUB 330 

3 00 POKEZ,0iPOKESl,0 : FORT-1T02 2 0 :NEXT 

310 IFW=3 6-G THEN J=S:GO5UB350 :GOTQl10 

320 GOTO 250 

330 W-W+l :S = S+2 5 ; PRINT 11 { HOME} { BLU} 

{ 2 GIU*}"S:POKE VS,15:POKE AD,30;POKE 
SR,200 :POKE WF,17 

340 P0KEHB,71 :POKELB,12 :FQRT=1TO90:NEXTT:P 
OKEVS r 0 :POKEHB r 0 :POKELB,0 :RETURN 
350 PRINT"{HOME}{RED){ ÌS GlU*){ 8 DES} 
|RVS}******B R A V OI******" 

355 FORICITOI0:GETC$:NEXTI:REM PULIZIA DEL 
BUFFER DELLA TASTIERA 

360 POKE VS,15:POKE AD,30:POKE SR,200:POKE 
WF,17 :FOR 1 = 1 TO 17 

3 70 H=INT{RND(0)*10)+21 :L=TNT(RND(0}*4 5)+2 

10:POKE HB, H iPOKE LB,L 

3 80 FOR T=1 TO 80 :NEXT T:NEXTi:POKE VS,0:P 

QKE HB , Q :POKE LB, 0 
400 RETURN 

410 POKEZ , 2IPOKEVS,15 :PQKEAD,30 :POKESR,200 
ìPOKEWF,129:POKÉ HB,2;POK£ LB,125 
415 FOR 1=1 TO 400:NEXT liPOKE VS,15:P0KE 
HB, 0 :POKE LB,G 

420 FORX=1144T01 823 :1F PEEK(X) <> 1THEN NEXT 
X 

430 IFPEEK(X)=1THEN POKEX,3:NEXTX 
440 J=0 

4 45 FORI = l TOI0 :GET C$:NEXTI 

450 FRI NT" t HOME} {BLU £ ( 20 GIU 1 HRVSjVUOI G 
IOCARE ANCORA? (S/N)":POKE 646,14 
465 GET C$:IF C$ = ™' THEN 465 
470 IFC$= U £ M THEN 110 

4 90 POKE532 7 2,21 :POKE53280,1 4:P0KE53281 ,6: 
POKE 52,50:POKE56,50:PRINT"{CLRjCIAO! M 

500 DATAI 26,219,21 9,255 r 1 65,90,90 f 165,60,6 
46 
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6.165.129.153.165.66.60 

510 DATA 170,85,17Q,85,126,219,255,1 89,60, 

66.165.129.165.153.66.60 
520 DATA 0,0,0,0,0,0,0,0 







i 
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2.3 

La fuga 
del 

serpente 

Daryl Biberdorf — Versione per C64 di Patrick Parrìsh 


Dovere stare attenti alle piante velenose mentre lottate contro il 
tempo per raggiungere la vostra meta in «La fuga del serpente». 

In «La fuga del serpente» il vostro scopo è quello di far uscire un 
serpente da un giardino avvelenato. VI sono circa 1 50 piante vele¬ 
nose sullo schermo airìnizio del gioco. Il serpente appare nell an¬ 
golo in alto a sinistra, dopo che tutte le piante velenose sono 
comparse sullo schermo. Dovete quindi cercare di guidare il ser¬ 
pente fino all usala nel tempo limite da voi scelto in preceden¬ 
za. 

Il serpente deve raggiungere [ uscita senza toccare una pianta 
velenosa, senza toccare sé stesso ed entro il tempo previsto. Se ci 
riesce, vi verrà assegnato un bonus, che si andrà ad aggiungere ai 
punti già realizzati. Il serpente cresce mentre si muove; voi ricevete 
un punto per ogni nuovo segmento che si aggiunge al serpente. Se 
va a sbattere contro sé stesso, o contro una pianta velenosa, a 
centro dello schermo apparirà una croce con il punteggio ed il 
numero di serpenti che vi restano. Potete anche fermare il serpen¬ 
te, se volete, semplicemente non premendo alcun tasto, ma ricor¬ 
date che in tal modo perdete del tempo. 

Strategia 

Se state muovendo il serpente vicino al bordo destro 0 sinistro 
dello schermo, ricordate che il C64 ha uno schermo continuo, 
orizzontalmente. Potreste toccare una pianta velenosa sull'altro 
lato dello schermo, perciò state attenti! A volte può capitare che tl 
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serpente resti intrappolato in un angolo fra le piante e sé stesso, a 
causa di un errore di manovra. Cercate allora di riempire tutti gli 
spazi liberi su cui potete muovervi. Perderete un serpente, ma 
guadagnerete dei punti in più. Cercate anche di stare sempre in 
movimento e di guardare dove andate. 

La direzione in cui il serpente si muove è determinata dalle linee 
200-230, 1 tasti I {su), I (sinistra), K (destra) e M (giù) muovono il 
serpente. Se non riuscite a controttare bene it serpente con questi 
tasti, potete facilmente modificare il programma, in modo da poter 
usare dei tasti diversi. 

Per esempio, supponiamo che vogliate usare il tasto Z, invece 
del tasto ], per muovere it serpente verso sinistra. Poiché la loca¬ 
zione 197 legge la tastiera, dovete prima determinare quale nume¬ 
ro viene scritto con POKE in questa locazione quando si preme Z, 
Scrivete questa linea: 

1 PRIMI PE£K(197) : POR 1=1 IO 400:MEXT LGOTO ì 

e date il RUM al programma. Poi premete il tasto Z: il numero 
nella locazione 197, che corrisponde al tasto Z (12), verrà ripetu¬ 
tamente stampato sullo schermo. Provate con degli altri tasti ed 
osservate i toro valori, poi premete il tasto RUM/STOP. 

Ora siete pronti a modificare la linea 200: sostituite il 34 con 12. 
Date il RUN al programma (dopo aver cancellato la linea 1, natu¬ 
ralmente): ora potete muovere il serpente verso sinistra col tasto 
Z. 

LA FUGA DEL SERPENTE 

5 GOTQ1QQ 

10 POKE54296, 1 5 :POKE54277, 17 :FOKE54278 
, 17 

15 POKE 54276, 17 :POKE 54273, 28 SPOKE542 
72, 49 

20 POKE54276,0:POKE54273 # 0:POKE54272,0 

30 RETURN 

100 $0=0 :SR-3 

110 GOSUB30000;G03US29000 

120 PRINT 1 ' {CLR] 11 

130 GOSUB280QQ;GOSUB8000;GOSUB9000:GQSUB28 
000 


i 
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140 TI$- TI 000000" 

1 50 CL“INT{RND{1)*7)+1 :IFCL=5OR0L=3THEN150 

160 IFTI$=LSTHENGOSUB7000iGOTOl30 
170 IFDH=0THENPOKEB,HC 
ISO POKEB,HG s PORECO/CL 
190 K=PEEK(197) 

200 IFK“3 4THENDR = -1 : GOTO250:REM LEFT 
210 IFK-37THEKDR”!:GOTG250:REM RIGHT 
220 IFK= 33THENDR=-40 ;GOT0250 :REM UP 
230 IFK= 36THENDR= 40 : GOTO2 50 : REM DOWN 
240 GOTO!60 

250 POKEB,BC:B-B+DR;CO-CO+DR:SO^SO+1 

2 60 IFFEEK(B)= 8 8THENDH=0:GOTO950G 

270 IFPEEK(B)-160THENGGSUB5000:GOTGl20 
2SO IFPEEK(B)=81THENGOT09500 
300 IFB<1024ORB>2023THENB=B-DR:CO=CO-PR 
310 GOSUB10 :GOTO150 
4000 REM ISTRUZIONI 

4010 PRINT"{CLR}{GIU 1 }{BLU}L T OBBIETTIVO E f 
GUIDARE IL SERPENTE FUORI DALLO SCHER 
MO * " 

4020 PRINT"{GIU 1 }{CRN}CERCA DI EVITARE I F 
UNGH1 VELENOSI((BLK}X{CYN})." 

4030 PRINT"{ 3 GIU 1 }{RED)TASTI{ 3 SPAZI}:" 
: FRI NT" {PUR} J= (RVS{SIN." :PRINT"(CRN) 
K= { RVS } DES - ,T 

4040 PRINT" {CYN} I={RVS}SU T1 :PRIRT*MrED} 
{RVS} GIU *" 

4 0 50 FRI NT” {GIU 1 } {RED} SCALA VALORI: 11 
4060 PRINT"{BLU}SEGMENTO CORPO”{RVS}1{OFF} 
PUNTO" 

4070 PRINT"{ 2 GlU 1 }{RED}RICEVERAI UN BONU 
S ALL'USCITA DAL QUADRO" 

4080 PRINT"{ 3 GIU*}{PUR}{RVS}{ 8 DES}PREM 
I UN TASTO PER INIZIARE" 

4090 GETAS:IFAS=""THEN4090 
4100 RETURN 

so 
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5000 VB-0:POKE53280,3:POKE53281,1 

5010 IFS=lTHENVB=20 

5020 IFS=2THENVB=3G 

5030 IFS=3THENVB=40 

5035 XFS = 4THENVB“50 

5040 BN= FNSC ( VB) 

5050 PRINTMCLRH 6 GIU T H 8 DES} {BLU} . . . S 
SI USCITOI * * * ir 
5060 SO=SO+BN 

5070 PRINT" { 2 GIU 1 H 15 DES}[RED}{RVS}BON 
US{OFF } :{RVS}{BLU}"BN"{OFF}" 

5080 PRINT"{ 2 GIÙ'}! 15 DES}{RVS>{PUR]PUH 
TI {OFF ) : {RVS} [GRNp'SQ 
5090 PRINT" { 2 GJU'H & DES} {BLU} "SR" 

{RED}SERPENTI RIMASTI" 

5100 POKE54 2 96, 15 SPOKE54277, 83 :POKE542 
78, 50 

5102 FORM1 = 33TO 57STEP2 ìLO=INT{RND(0)*50) + 
1 80 

5103 POKE 54276,17:FORJ-lTO60 sNEXTJt POKE 5 
4273,HI:POKE54272,LOtNEXT 

5106 FORT-ITO 2 00 :NEXT:POKE542 76,0:POKE54 
2 73,0:POKE54 2 72 ,0 
5120 DH=2:RETURN 

6000 PRINT" {CLR} { 10 GIU'H 12 DES} [BLU} 

{ U V}' 1 

6003 PRINT"! 12 DES}{BLUjVtRVS}[CYN} 

{ 11 DES}{OFF}[BLU]V" 

6005 PRINT"! 12 DES}{ 13 V}" 

6010 PRINT"{HOME}( H GIU'H 13 DES}{RVS} 

{BLK} GAME" 

6020 POKE5 4 2 96 , 1 5 :POKE54277, 53 :POKE542 
78 f 69 

6021 POKE 54276, 33 :POKE 54273, 3 SPOKE54 
272, 244 

6022 FORTUITO 90 0 :NEXT:POKE54276,0 :POKE54 
27 3,0 :POKE54 272,0 
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6025 POKE36S74,150 ;PRINT"{HOME} { Il GIU' } 

[ 18 DES}{RVS} [BLK } OVER " 

6026 POKE54296, 15 :POKE54277, 53 :FOKE542 
78, 69 

6027 POKE 54276, 33 : POKE 54273, 2 :POKE54 
272, 163 

6028 FORTUITO 900 :NEXT:POKE54276,0 :POKE54 
27 3,0 :POKE 54272,0 

6040 PRINT" { 3 GIU 1 }( 12 DES}£RED}GlQCHI A 
NCORA?" 

60 50 GETP$ :IFP$-" "THEN6Q 50 

6060 IFP$-"S"THENSO=G :SR= 3 :LK= 0 :GOTOl 20 

6070 IFP^<> n N"THEN6050 

6080 PRINT"( 3 GIU 1 } [ 17 DES } CIAO ì( HOME J 11 : 
END 

7000 SR= SR-1 :POKE53230,3 :POKE53281,1 

70 ì 0 PRINT"{CLRH 6 GIU'} £RED}WOW! SEI MO 
RTO DI STANCHEZZAJ 11 

7020 PRINTSPC(14) "{ 4 Gl U T }{GRN }Z {PUR}PUNT 
l(OFF} : {RV$} [GRN} 1, SO 

7030 PRINTSPC [9}"ì 5 GIU T ]{RED}"SR lf {BLU}SE 
RPÉNTI RIMASTI" 

7040 POKE54296, 10 :POKE54277, 31 ;POKE542 
78, 17 

7042 POKE 54276, 33 iPOKE 54273, 5 :POKE54 
2 7 2 f 71 

70 4 3 FORV0 = 15T05STEP-.5 :PQKE54296,V0:FORT = 

1TOl00 :NEXT:NEXT 

7045 POKE54276,G:POKE54273,0;POKE54272,G:P 
OKE54296,0 

7050 FORT-1T02000;NEXT 

7060 IFSR=QTHEN6Q00 

7070 RETURN 

8 0 00 POKE5 32 8 0,4: POKE 532 81 ,1 : PRI NT 1 ' { CLR ; 

{ 3 GIU 1 } "SFC (42) " {RED} SCEGLI IL LIVE 
LLO : 11 

3005 PRINT"{ 2 SPAZI}[< 17 T>] " 
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3010 PRINTSPC ( 51 } " {GIU 1 } {BLU 1 LIVELLO 1-60 
SECONDI" 

30 2 0 PRINTSPC(51 )"{RED]LIVELLO 2=4 5 3ECOND 
I" 

30 3 0 PRINTSPC(51 )"{GRN}LIVELLO 3=3 0 SECOND 

I" 

3 04 0 PRINTSPC ( 51 ) 1( { PUR } LIVELLO 4-15 SECOND 
I” 

3045 PRINT"( 3 GIU*}{ 7 DES}{YEL}L{BLU}I 

{CRN)V t PUR } E{CYN}BLU} L [ < 1>]0 {RED}? 

ii 

3050 GETS$:IF$S s ""THENBG 50 
8060 S = VAL[S$) 

8070 IFS-1 THENL$="0001 Q0":RETURN 
8000 IFS-2théNL$= 11 000045" : RETURN 
80 90 IFS-3THENLS="000030":RETURN 
8100 IFS = 4THENL$ = "00001 5": RETURN 
8110 GOTOSO50 

3000 POKE532 BO,4 ;POKE53281 , 3 :PRINT" {CLR} ,r 
9010 FORF=lTOl50:D-INT(RND(1)*966)+1058 
90 2 0 POKED ,38;POKED+54272,1 i FORj=1 TO2 0:NE 
XTJ:POKED+ 54 2 72 ,0 jNEXTF 
90 3 0 POKE2023 ,160;POKE2022, 1 60 tPOKE 1 93 3,1 6 
0:POKEl 982,160 

90 4 0 POKE 56295,6 t PQKE5 62 94,6;POKE56255,6:P 
OKE56254,6 

90 50 POKEl 943,32:POKE2G21 ,32 
9060 RETURN 

9500 POKE 54 296 r 15 JPOKE54277, 53 -POKE542 
78, 69 

9505 POKE 54276, 33 :POKE 54273, 5 :PGKE54 

272 , 71 

9510 FORT = 1TO 900 :NEXT:POKE54276,0 :POKE54 
2 73,0:POKE54 272,0 

9515 POKE54296, 1 5 :POKE54277, 53 ;POKE542 
78, 69 

9520 POKE 54276, 33 :POKE 54273, 3 :POKE54 
272, 244 
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9525 FORTUITO 900 :NEXT;POKE54276,0:POKE54 
273,0 ;POKE54 2 72,0 

9530 PQKE54 296, 15 :POKE54277, 53 :POKE542 
78, 69 

9533 POKE 54276, 33 :POKE 54273, 2 :POKE54 
272, 163 

9536 FORT =1TO 900 :NEXT:POKE54276,0 :POKE54 
2 73,0:POKE54272,0 
9540 SR^SR-1 

9 5 50 PRINT +I { HOME) { 10 Gl U r } M SPC ( 1 8 ) 11 {RVS } 
(WHTl {DES} £DES} '*SPC (37) " RIP"SPC ( 37) Tl 
{DEE} {DES ) "SPC (37) 11 { DES } [ DES } {OFF} " 

9560 FORT= 1TOl000:NEXTT 

9 5 70 POKE5328Q,3:POKE53281 , 1 : PRINT TI {CLR} 

{ 5 GIU r }” 

9580 PRIHTSPC(14) H {RED}PESSIMO 1 l" 

9590 PRINT"{ 4 GIU T }{ 14 DES }{RVS}{BLU}PUW 
TI {OFF} : £RVS} {PUR} "SO 11 {OFF} IT 
9600 PRINTSPG(S) n { 4 GIU 1 } {GRN } ” S R 1 ' { BLU } SE 
RPENTI RIMASTI 11 

9610 FQRT=1TO2000:NEXTTiIPSR=0THEN6000 
9620 GOTOl20 

1 0000 POKEV,151POKES 3,217:POKES3,217 :POKEV 
,0 :POKES 3,0:RETURN 

28000 BC=81:HC-87:B=1024:S3=36S76:CO=55296 
; L K = Q :RETURN 

29000 DEFFNA(L)=INT(RND{1)*L)+1064 
29010 DEFFNSC[L)=INT(RND(1)*L)+5:RETURN 
30000 POKE53280,3 :POKE53281 ,1 
30010 PRINT'MCLRH 8 GIU'}{ u desHrvs} 

{RED} { 17 SPASI}' 1 

30020 PRINTM 11 DES}{RVS}{RED} {GRN} 

{ 15 SPASI) {RED} 11 

30030 PRINTM n DES}{RVS}{RED} {GRW} 

{ 2 SPAZI)SERPENTONE { 3 SPAZI} {RED} 
(RVS) " 
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3 0040 PRINT fl { 11 DES}{RVS]{RED] {GRU} 

{ 15 SPAZI}{RED] " 

30050 PRINT "[ 11 DES]{RVS}{RED} 

( 17 SPAZI}" 

30070 PRINT"{ 2 GILT}{ 12 DES} (BLU) ISTRUZI 
ONI?" 

30080 GETI$:IFI$=""THEN30080 
3 00 90 IF1$ ~ "S ,I THERGOSUB4000 : GOTO3 01 20 
30100 IFX$ = "N , *THEN301 20 
30110 GOTO3OO0O 
301 20 RETURtJ 
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Vipera 

Dave e Casey Gardner — Versane per C64 di Charles Brannon 




*Vipera * è un veloce gioco d'azione con 60 livelli di difficoltà. 
Occorre un joystick , 

La vipera è un serpente veloce, furioso ed affamato» Corre 
tutt'intorno divorando H suo cibo preferito: gli asterischi! Più ne 
mangia r tanto più aumenta di volume. Ma poiché per i serpenti è 
difficile ingrassare, fa vipera diventa più lunga, Ma a causa dei suoi 
denti aguzzi e velenosi non deve sbattere incidentalmente contro il 
suo stesso corpo, che ss va allungando Per rendere le cose ancora 
più interessanti ta vipera deve muoversi all'interno di un labirinto, 
le cui pareti sono percorse dalla corrente elettrica. Una mossa falsa 
significa una condanna certa, 

Con un joystick potete anche voi sperimentare i pericoli corsi 
dalla vipera, lì programma è facile da scrivere e giocare. Seguite 
semplicemente le istruzioni dello schermo. Per muovere la vipera 
inserite il joystick nella porta 1. 

Potete scegliere fra diversi livelli per il controllo della velocità 
della vipera, Potete anche scegliere fra: nessun labirinto, labirinto 
facile, labirinto difficile. Il punteggio è costituito dal numero di quei 
deliziosi asterischi ingoiati moltiplicato per il livello di difficoltà 
scelto; perciò, quanto più il gioco è diffìcile, tanto maggiore sarà il 
punteggio raggiungibile. Col labirinto facile i punti vengono rad¬ 
doppiati; col labirinto diffìcile vengono moltiplicati per cinque, 

Una parola per \ programmatori 

Per fare in modo che il gioco fosse abbastanza veloce la routine 
principale del programma è stata scritta in linguaggio macchina. La 
velocità risultante era cosi elevata che è stato necessario Inserire 
dei loop di ritardo, solo per rallentare la velocità fino ad un livello 
accettabile. Se siete abbastanza bravi, provate col livello 20, anche 
se è estremamente difficile, giocare a questo livello; infatti, se 
qualcuno riuscisse a fare dei punti al livello 20 col labirinto diffìcile, 
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si tratterebbe di un puro miracolo, 

Un'altra caratteristica è quella della parola vi PERA che si muove 
sullo schermo. Non si tratta dì alta risoluzione, né di sprite, ma 
semplicemente di caratteri che si trovano sulla tastiera. I! movi¬ 
mento viene ottenuto con degli INSert e DE Lete programmati. 
Dategli un'occhiata. Potreste utilizzare Fa stessa tecnica per ['ani¬ 
mazione del vostro prossimo gioco. 

VIPERA 

100 DT" 60 iDIM MA(DT) ,QOG0) 

110 14(14)=-4 0iX%(13)=40si%(11)=“1:1%[7)=1 

120 I%(10)*-41;i%(6}--39;I%(9)=39;I%(5)=41 
:JOY-56321 

130 FQRJ-1TODTiREADMA(J) ittEXT 
140 PRINT”{WHTj{CLR}"CHR?(142):C=54272iSC=* 

1 02 4iPOKE 532 81 r 2 :POKE53290,8 

1 50 m~ Ò;p=0ìDR=0 

160 CURF=251 :SPEED-4 93 52:INDEX=SPEED+1 :LNG 
TH-XMDEX+1:RTN-LN+1 

170 SID=54272:V=SID+24:S1=SID:S2-SIDìS3-S2 
:A=2:tf=2:MM=0:S4=SID+4 
1B0 F0RI = OTO2 4 :POKESID+1,0 iNEXT:POKES XD+1, 

25 :POKESID+5 f 6 :POKESID+6 r 0 
190 POKESrD+24,15 

200 GOSUB410 : POKESID+5,6 :POKESPEED,ì 9~SK 
210 FGRJ=102 4TOÌ 063:POKEJ+C,7 :PGKEJ,160:NE 
XT 

2 2 0 FORJ-1G64T02024STEP40;POKEJ+C,7:POKE J f 

160SNEXT 

230 FORJ=2023TOl 984STEP-1:POKEJ+C,7 :POKEJ, 
ì 60 :NEXT 

240 FORJ^l 983T01 063STEP-40:POKEJ+C,7 :POKEJ 
,160 :HEXT 

2 50 M=IMT(RND£T)*1 000}+SC 
260 IFFEEK(M)<>32THEN250 
270 POKEM,42:POKEM+C,1 
280 S=INT[RND(1)*1000}+SC 
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290 1FPEEK £S) O32THEN280 

300 POKE S r 90 :FOKES+C f 1 6 *RND{1) : IF (FEEK (56 
3 21)ANDl 5}=15THEK3GQ 

310 Sfi =S/256;POKECURR r S-S%*256:POKECURR+1, 
Q% ìPOKEINDEX,0 

320 POKELNGTH,N;SYS491 52+5:REM LOOP PRINCI 
PALE GOTO 170 
330 HIT=PEEK(RTN) 

340 IFHITOl 6GANDHIT021 4THEN36Q 
350 S=PEEK{CU>+256*PEEK (CU+Ì) :POKES,42:POK 
ES+C r 7 : GOTO? 70 
360 IFHITO42THEN320 

3 70 POKESID,0 ì POKESID+5,9 :POKES4,128:POKES 
4,12 9 : F = P+1 jN=N+ 2:FORT=lTOSO :WEXT 

3 80 POKES4,128 :POKESID,0:POKESID+5,6 :POKES 

ID + 24 t 0:POKESlD+2 4,15 

390 GOSUB880;POKEM,42 :POKEM+C,1:POKE5ID+24 
f 0:POKESlD+24,15 
400 GOTO320 

41 0 IFTR-1 THENPRINT 11 {CLR} 11 : GOT047Q 
420 GOSUB950 

4 30 PRIHT"{ 2 GIU 1 }{ 3 SPAZI]PRENDI GLI '* 

I MA 11 iPRINT” I 3 SPAZI] NON TOCCARE NIEN 
TE ALTRO” 

440 PRINTM 2 GIU'H 3 SPAZI ì USA IL JOYSTI 
CK NELLA PORTA UNO.” 

4SO FORJ = ìT045:P0KESID, 2 30 :POKÉS4,33:FORT= 
^ T02:NEXT ; POKES 4, 32 r POKESID , 0 
460 POKESID+ 5,2 

470 PRlNT lf ( 3 GIU 1 } "TAÌM 9) "LIVELLO DI DIFF 
1COLTA 1 : n 

480 PRINTTABtl 0) " E<8>) {RVS} { 9 SPAZI}] mi 

II 1 n 2 11 : S K= 1 0 

490 PRINT" {YEL} LENTO {WHT} { 2 SPAZlX^ 

[<s>5ÉRVS}1 2345678901 2 34567890(OFF] 
{WHTl -> [<6>IVELOCE”; 

500 FRINTSPC (10) "(RtfSj (WHT) XCYN} -{PUft} 

-{GRN} -{YELÌ -[<!>] -t<6>3 X<?>3 ^ 
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(blu) - [<3>ì ~_ n : PRIMI 
51 0 PRINT"TsU}"TABn Q+SK);"{WHT}t(SIN) M J 
520 J = 15-(PEEK(56321)ANDl5):SK=SK+[(JAND8) 
=8)*(SK<19)-((JAND4)-4 )*{SK>0) 

530 TF(PEEK(56321)ANDl6}=0 THEN560 
540 IF TI<T THEN53 Q 
550 T=TI + 5: FRINT" "ìGGTOSlQ 
560 IFTR=1THENPRINT"{CLR}"ì GOT0610 
570 FRI NTCHR$ £ 1 4 ) 11 { CLR} [GIU 1 } IX PUNTEGGIO 
SARA T «SPRINT" MOLTIPLICATQ PER DUE CO 
N UN" 

580 FRINT" LABIRINTO FACILE," 

500 PRINT" { 2 GIU 1 ] IL PUNTEGGIO SARA 1 11 1PR 
TNT" MOLTIPLICATO PER CINQUE CON 0N" 
600 PRINT" LABIRINTO DIFFICILE." 

610 PRINTCHR$(14 )"{ 2 GIU 1 JfWHT}SINISTRA 
[<8>] PER UN LABIRINTO DIFFICILE" 

620 PRINT"{GIU 1 }{WHT]DESTRAT<8>] PER UN L 
ABIRINTO FACILE 1 " 

630 PRINT" {GIU * } [ WHT)_I L FUOCO [<8>] SE NON 
VUOI UN LABIRINTO" 

640 IFPEEK (56321 ) 0255 THEN640 
650 MZ = Q:J-PEEK(56321}:IF(JANDl6)=0THENPRI 
NT"{CLR}"CHR$(142); ; RETURN 
660 IF(JANDl5)=15 THEN650 

670 FRI NT"{CLR)"CHR$[142) :IF f JAND4) THEN72 
0 

680 I=-l:PRINT"{HOME] { RVS}DIFFICILE" 

690 FORJ“1TODT £ POKESC + 8 0 + 1 * 320+MA(J) +C,3:P 
OKESC+MA(J)+80+1*320,160:NEXTJ 
700 I = I+UIFI<2 THEN690 
710 MZ=1:RETURN 
720 IF(JAND8)THEN570 
730 I = -1* PRINT"{HOME J{RVS}FACILE" 

740 P0RJ = 1T03 2:POKESC + MA(J)+C+8G+320*I,3 :P 
OKESC+MA(J)+80+320*1,160:NEXT 
750 1=1+1:IFI<2THEN740 
760 MZ =2 : RETURN 


! 
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770 PQKESID,0:PGKE5lD+5,15:PQKES4,129:FORJ 
= ì 5T04STEP-.1 :POKESID+24,J:NEXT 
7 80 POKES1D+24,15:FORT=lTO500:NEXT ì POKES 4 , 

1 2 8 i FORT”1 T02 0 0 : NEXT : POKES ID+5,6 
790 IFMZ-1THENP”P*5 
800 IFMZ-2THEKP=P*2 
810 H“P*(SK+1) 

82 0 PRINT"{CLR} { 2 GIU’H^El} HAI FATTO: ”R 
" PUNTI” 

830 IFR>HSTHENHS=R 

840 PRINT” { 2 GIU r } {CYN ) PUNTEGGIO PIU * AL 
TO: M HS 

350 PRINT:PRINT"[ WHT}PREMI [<3>]{RVS}lL FU 
OCO {WHT}PER GIOCARE ANCORA * n 
360 IF{PEEK(56321)ANDl6)THEN860 
870 GOTOI40 

BB0 M=INT{RND (1 ) * 1 000) 4-3C :MM=Q 
390 IFPEEK (M) O3 2THEN8 80 
900 RETURN 

910 DATA 259,260,336,337,338,341,342,343,3 
76,383,411,412,413,414,415,416 
920 DATA 423,424,425,426,427,42B,456,463,4 
96,497,498,501,502,503,579,580 
930 DATA 258,259,330,331,332,333,334,345,3 
46,347,34B,349,418,419,420,421 
940 DATA 490,491,492,493,494,505,506,507,5 
08,509,578,581 

950 PRINT"{CLR}{WHT] "CHR${142) ; :FORl = 2T03 
9 : PRINT" * 11 ; : NEXT : PRT NT : PRINT" 

[ 4 GIU 1 !" 

960 PRINT” : FORI = 2T039 ;PRINT"^” ; :NEXT 

970 PRINT”{HOME}(GIU*}E< 3 @>ì T<@>1 I<@>! 

[< 3 @>] [< 2 @>] [< 3 @>] [< 3 @>1” 

9B0 PRINT"{ 2 SPAZI}{RVS} £{OFF}£{RVS}£ 
{OFF}£{RVS}£{OFF j£{RVST eIOFFT£{ RVS! 
£{0FFT£ {RVS}£{0FF} £{ RVS j £{QFF} £. I< @>1 

Trvs}£Toff}£{rvs} 11 
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990 PRINT" [<T>]{RVS} {OFF}£{RVS}£{OFF} 

£{RVS}£{OFF}£[< 2 T>3{RVS>£{OFFtfi[<T>] 
TRVS}£TOFF}£[<*>] {RVS}{<*> ì {OFF} {RVS} 
£{OFFl£[<T>][RVS} " 

1000 PRINT" [< 2 T>3 [<T>] [< 2 T>] 

{ 2 SPAZI}[< 2 T>] [< 2 T>] [< 3 T>] 

{ 2 SPASI}[< 2 T>]IFZZ=lTHENl070 
101 0 IFPEEK(900) O232THENG0SUB1130 
1 02 0 FOR CO-3 TO 7;POKE894,CO:SYS9 93 
1030 FOR 1=1 TO 17 

1 035 PRINT" { HOME} {GIU* } "CHR$ ( 1 48) 11 {GIU 1 } 
{SIN}"CHR$(148)" ( GIU T }{SIN}"CHR$(148 
}" {GIU* ì{S1N}"CHR${148)" {GIU 1 }[SIN} 

ii 

1 040 POKESID+1 r CO*2 +1 :POKES4,33;POKES4,32 : 
NEXT 

TOSO FORI=lTOl7:PRINT"{HOME}{GIU 1 } "CHR$(2 
0) 1 '[GIU 1 } "CHR$ (20) " {GIU 1 } *'CHR$(2Q)" 
{GIU* ì "CHR$ (20) " {GIU*} *' 

1oéo POKESID+1,CO* 2 +2 0-1 :POKES4,33 : POKES4, 
3 2 ;NEXT:NEXT 
1070 FOR1=1T09 

1 075 PRINT"{HOMEHGIU 1 }"CHR${148)" (GIU'} 

{SIN}"CHR$(148)" {GIU*}{SIN}"CHR$(148 
)" {GIU 1 }{SIN}"CHR$(148)" {GIU 1 }{SIN} 

ii 

1080 NEXT 
1090 POKESID+l,60 

1100 FORJ = 15TQ1STEP-1:POKE894,J:POKESID,J* 
10:POKES4,33 

1110 SYS 8 93 t POKES4,32 :POKESID+24,J:NEXT: PO 
KESID+1,15:FOKBSID+24,ì 5 
1120 ZZ=1 i RETURN 

1130 FORI=8 93T090 5 :READA :POKEI,A :NEXT 
1140 PRINT"{HOME}{ 8 GlU 1 }{RVS}PUOI GIOCAR 
E FRA 5 SECONDI * * *" 

1150 DATA 169, 1, 162, 0, 157, 40, 216, 23 
2 


■ 
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1160 DATA 224, 160, 208, 248, 96 
n 70 FORI = 4 9152TO49350:READA:CK=CK+A:POKEI 
,A :NEXT 

1180 PRINT"{HOME){ 8 GIU'H 30 SPAZI}" 

1190 IF CKO29203 THEN PRINT"ERROR IN DATA 
STATEMENTE J":POKE900,0 : END 
1200 RETURN 

1210 DATAI 69,0,1 41,1 99, 1 92,1 73,1,220 
1220 DATA41,15,170,139,183,192,240,3 
1 230 DATAI 41 , 1 99,1 92,1 73,201,192,10,1 70 
1 240 DATAI 65,251,157,205,192,165,252,157 
1250 DATA206,192,56,173,201,192,237,202 
1 260 DATAI 92, 16,3,24,105,128,10,1 70 
1270 DATAI 89,205,192,133,253,189,206,192 
1280 DATAI 33,2 54,1 69,32,1 4 5,253,238, 201 
1 290 DATAI 92,1 73,201,192,16,5,169,0 
1 300 DATAI 41 , 201 ,1 92,169,230,141,0, 21 2 
1 31 0 DATAI 69,32,1 41,4,21 2,1 69,33, 1 41 
1320 DATA4,212,169,214,145,251,24,165 
1330 DATA251,133,253,165,252,105,212,133 
1340 DATA254,169,5,145,253,24,173,199 
1 350 DATAI 92,16,13,10!,251 ,1 33,251,165 
1360 DATA252,233,0,133,252,76,138,192 
1 370 DATAI 01,2 51 ,1 33,251 , 1 65,252,1 05,0 
1 380 DATAI 33,252,24,1 65,2 51,1 33,253,1 65 
1390 DATA252,105,212,133,254,177,251,201 
1400 DATA32,208,24,169,81,145,251,169 
1410 DATA4,145,253,173,200,192,240,8 
1420 DATAI 62,0,1 34,1 62,197,162,208,252 
1430 DATA76,5,192,141,203,192,96,0 
1440 DATAO,0,0,0,41,217,1,0 
1 450 DATA39,21 5,255,0,40,216,0,0 
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3.1 

Stati e capitali 

Enoch L. Moser 


«Stati e capitali», oltre ad essere utilissimo agli studenti che devo¬ 
no imparare gli stati e le capitali europee ; serve anche per spiegare 
l'uso dei vettori nei programmi e la registrazione e la lettura dei dati 
sul nastro. Entrambi questi concetti sono importanti per i program¬ 
matori , ma coloro che non sanno programmare possono usare 
*Stati e capitali* senza dover scendere nei dettagli del suo funzio¬ 
namento. 

«Stati e capitali** chiede agli studenti il nome di uno stato o di una 
capitale e conserva ri numero delle risposte giuste e sbagliale. Il 
programma decide a caso se chiedere uno stato o una capitale ed 
anche quale domanda porre. 

Le domande cui viene data una risposta giusta non vengono 
ripetute. Saranno invece ripetute le domande cui viene data una 
risposta sbagliata. E, come un qualsiasi buon insegnante, «Stati e 
capitali» è in grado di aiutare gli studenti che ne abbiano bisogno’ 
basta scrivere «AIUTO» quando ci si trova in difficoltà. In questo 
caso il programma fornisce la risposta corretta e ritorna sulla stessa 
domanda in seguito. Tiene anche il conto del numero di volte che 
lo studente ha avuto bisogno di aiuto. 

Quando tutti gli stati sono stati accoppiati con successo alle toro 
capitali, se non è stato chiesto aiuto e non sono state date delle 
risposte sbagliate allo studente verranno fatte le congratulazioni 
per il punteggio. 

Un programma in due parti 

Il programma legge gli stati e le capitali da un file,*Scrittura del 
file», su nastro o su disco, che viene creato dai programma 2. 

Per usare i programmi seguite questa procedura: 

1. Digitate il programma 1. La linea 5 per chi usa il nastro dev'es¬ 
sere: 
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mentre per chi usa il disco; 

5 OPEN 1,a,(ASTATI* 

2. Salvate il programma 1 su disco o su nastro. Coloro che usano il 
nastro dovrebbero evitare di farlo girare dopo aver registrato il 
programma, 

3. Digitate il programma 2, La linea 40, per chi usa ài nastro, dev'es- 

40 OPEN 1,1,1,«STATI» 
mentre per chi usa il disco; 

40 OPEN 1,8,INSTATI» 

4. Date il RUM al programma. Gli stati e le capitali saranno sul disco 
nel file «STATI»* (coloro che usano il nastro devono solo lasciare il 
nastro nella posizione iniziale}, 

5. Salvate (SAVE) il programma 2, 

6. Riavvolgete il nastro. 

7. Caricate (LOAD) il programma 1 ; dopo questa operazione lascia¬ 
te il tasto PLAY abbassato ed il nastro nella stessa posizione. 

8. Date il RUN al programma 1, 


Come funzionano i programmi 

Come abbiamo detto, il programma per la scrittura del file regi¬ 
stra i nomi degli stati e delle capitali, su nastro o su disco, nel file 
«STATI», Il programma principale, «STATI E CAPITALI», legge que¬ 
sto file e conserva i dati in STS(IJ), un vettore bi-dimensionale 
(diremo di più in proposito fra breve). Quando viene data una 
risposta giusta, il campo del generatore di numeri casuali (linea 100) 
viene decrementato di uno (linea 205) e lo stato e la capitale 
richiesti vengono spostati in cima alla lista (linee 180-200), al dì 
fuori del campo entro il quale viene scelta la domanda seguente, A 
parte questo, il programma è abbastanza lineare. 

Le definizioni delle variabili sono: 


ST$(49,1 ) 

Vettore contenente gli stati e le capitati. 

K 

Numero degli elementi spostati in cima alla lista. 

R1% 

Puntatore degli stati. 

R2% 

Indice dello stato o della capitale. 

ANS 

Risposta, 

RT% 

Numero delle risposte giuste. 
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WR% Numero delle risposte sbagliate. 

Numero delle richieste di aiuto. 

1$ Stringa temporanea per to scambio dei dati. 

Vettori 

Un vettore è semplicemente un insieme di dati ordinati. Può 
avere una a più dimensioni. Un vettore uni-dimensionai e è sem¬ 
plicemente una lista i cui elementi sono dei dati cui è associato un 
numero a partire dallo 0. Per esempio, una lista del droghiere con 
20 voci, numerate da 0 a 19, sarebbe un vettore uni dimensionale 
con 20 dati. 

Per definire un vettore dovete usare un tipo di variabile speciale 
detta variabile indice, nella forma AN(I), dove AN è il vettore e 1 è il 
numero (indice) dell'elemento desiderato. Nel nostro esempio del¬ 
la lista del droghiere se I fosse uguale a 19, AN(I) sarebbe l'ultimo 
elemento della lista. 

Il nome del vettore può essere un qualunque nome ammesso di 
variabile, seguito da $ (stringa) o % (intero), se necessario, (questo 
starebbe ad indicare che i dati contenuti nel vettore sono stringhe o 
numeri interi). 

Prendiamo come esempio un vettore uni-dimensionale con 
quattro elementi che siano numeri interi: 21,23,25 e 27, Il vettore 
sarebbe rappresentato da AN%{!), e cioè: AN%(0)=21, 
ÀN%(1)=23, AN%(2)=25 e AN%(3)=27. 

Anche un vettore bi-dimensionale è una Usta ordinata, ma è 
composto da dementi che sono essi stessi delle liste ordinate. È più 
facile capirlo se usiamo una tabella, Per esempio, un vettore bi¬ 
dimensionale potrebbe apparire in questo modo: 



1=0 

1=1 

1=2 

1=3 

)=0 

21 

r 23 

25 

27 

1=1 

43 

45 

47 

49 

)=2 

51 

53 

58 

59 


Un dato appropriato per questo vettore potrebbe essere AN% 
ed i suoi elementi venire identificati con ÀN%(I,J). Se 1=0 e j-0, si 
ha AN%(!,|)=21. Se 1=3 e ]=2, si ha AN%{1,J)=59. Il vantaggio dei 
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vettori sta nel fatto che permettono di conservare molti numeri o 
altri dati, senza dover usare un gran numero di variabili, e di acce¬ 
dere ad ogni singolo elemento con dei facili calcoli matematici. Ma 
fate attenzione: i vettori occupano grandi quantità di memoria. 

I vettori possono diventare molto complicati. È facile immaginare 
un vettore uni- o bi-dimensionale, ma i vettori con tre o quattro 
dimensioni? Gli elementi dei vettori con tre e quattro dimensioni 
vengono identificati rispettivamente con ÀN%(lj,K) e 
AN%[Ì,],K,L). 

Come creare i vettori 

In genere i vettori vengono creati con un loop FOR/NEXT con¬ 
tenente un'istruzione per la lettura (READ) delle istruzioni DATA o 
per l'input (INPUT) dei dati da una periferica. Ogni passo del loop 
FOR/NEXT crea una lista ordinata. Per esempio, il programma che 
segue potrebbe essere utilizzato per definire il contenuto del vet¬ 
tore bi-dimensionale mostrato in precedenza: 

10 DIM AN%(3,2) 

20 FOR 1=0 TO 3 
30 FOR j=0 TO 2 
40 READ AN%(1J) 

SO NEXT j 
60 NEXT I 

70 DATA 21,43,51,23,45,53,25,47,56,27,49,59 

t! loop FOR/NEXT più interno (o annidato) (linee 30-50) crea la 
lista ordinata degli elementi della dimensione j all'Interno di cia¬ 
scun elemento della dimensione E. Confrontate la tabella prece¬ 
dente con le istruzioni DATA alla linea 70 per vedere come il 
vettore viene creato. 

L'istruzione DIM [linea 10) serve per dire al computer quanta 
memoria deve essere lasciata a disposizione del vettore. Notate 
che le dimensioni nell'Istruzione DIM sono di una unità minori del 
numero degli elementi presenti nella dimensione. Il numero di 
dimensioni e il numero di elementi per ogni dimensione sono 
limitati solo dalla quantità di memoria disponibile. 

Ricordate che un vettore può contenere anche altri tipi di dati 
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oltre ai numeri. «Stati e capitali* usa un vettore stringa bi-dimen¬ 
sionale, 3T$(I,J), che può contenere 50 stati e 50 capitali (V, linee 
10-35 net programma 2). 

Regi etra rione dei dati 

Per inserire dei dati in un programma si possono utilizzare le 
istruzioni DATA, l'input da tastiera o i file su nastro o su disco, I file 
su nastro o su disco sono la cosa migliore quando più programmi 
devono poter accedere agli stessi dati, o quando un programma ha 
bisogno di più file dì dati, o quando la quantità di dati necessari è 
eccessiva per le capacità di memoria del computer Tenete pre¬ 
sente che quando un vettore viene creato con delle istruzioni 
DATA è necessaria una quantità di memoria doppia rispetto a 
quella necessaria se i dati fossero letti da nastro o da disco. 

La registrazione e la lettura dei dati è molto semplice, se si 
seguono poche regole. Anzitutto, prima che i dati possano venire 
scritti o letti da un file, bisogna aprire un canale di comunicazione 
fra il computer e la periferica con T istruzione OPEN. Essa dice al 
computer quale file dev'essere preso in considerazione e in quale 
direzione devono andare le informazioni (input dalla periferica al 
computer; output dai computer alla periferica)* Se nell istruzione 
OPEN è specificata un'operazione di scrittura, il computer scriverà 
if nome del file. Se è stata specificata un'operazione di lettura, il 
computer cercherà il nome del file richiesto e procederà alla lettura 
del file. 

In secondo luogo, il file dev'essere chiuso, dopo l'uso, con 
Tistruzione CLOSE, Ciò è particolarmente importante quando si 
crea un nuovo file. 

La terza regola da seguire quando si registrano dei dati su nastro o 
su disco è che il tipo delle variabili usate dev'essere coerente. Ciò 
significa che dei dati registrati come numerici, interi o stringhe 
devono essere riletti con variabili dello stesso tipo, 3 nomi delle 
variabili non vengono registrati, perciò i dati possono essere riletti: 
con variabili completamente diverse, ma sempre dello stesso 
tipo, 

Come quarta regola I dati devono venire riletti nello stesso ordine 
in cui sono stati scritti. Perciò il programma deve ricevere i dati 
esattamente nelTordine in cui li aspetta. 

6S 



STATI E CAPITALI 

2 DEVICELE : REM DCTICE=1 PER IL NASTRO 

5 OPEN 1,DEVICELO,"STATI" 

10 DIM STS £29,1) 

15 FOR 1=0 TO 23 
20 FOR J-0 TO 1 
25 INPUT#1 r ST$ {I, J) 

30 NEXT J 
35 NEXT I 
40 CLOSE 1 

45 K-0 :RT% =0 :WR% =0 : HE % -0 
48 PRINTCHR5(147} 

50 PRlNT <f STATI É CAPITALI 1 ' 

55 PRINT:PRINT"QUESTO PROGRAMMA INSEGNA AG 
LI STUDENTI{ 2 SPAZIAGLI STATI E LE CAP 
ITALI* 1 

60 PRINT:PRINT"QUANDO NON SAI RISPONDERE S 
CRIVI 1 AIUTO 1 " 

6 5 PRINT: FRlNT ,f PREMI UN TASTO PER CONTINUA 

70 GET A$ : IF A$ = lM, THEN70 

Ì00 Ri % = INT((29-K) * RND(-RND(0))) 

1 05 R2% = INT(2*RN0(1)) 

HO PRINTCHRS (1 47) 

115 IF R2% = 0 THEN 130 

120 PRINT* 1 QUAL 1 !! 1 LA CAPITALE DI " 5 FRINTSTS 
(Ri 1,0};"?" 

125 GOTO 140 

130 PRINTST$ (RU,1 5 :PRINT:PRINT"£ 1 LA CAPI 
TALE DI QUALE STATO?" 

140 INPUT ANS 

145 IF ANS^STS{RI%,R2%)THENl 70 

150 IF AN$ = 1l AIUTO"THEN22Q 

155 GOTO 250 

170 RT% -RT% +1 

175 PR1NT"GIUST0! 11 

180 FOR I-OTOl 


i 
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185 IS-ST?((28-K) r l) 

190 ST${(20-K),I)=ST$[Rl%ri) 

195 ST3(Rl% f I)=1$ 

200 NEXTI 
205 K-K+l 
210 GOTO 300 
220 HEI= HE % +1 

225 FRI NT : PRINT 11 LA RISPOSTA É 1 ■ , . " 

230 PRINTSPC(5)ST$(Rl% r R2% ) 

235 GOTO 300 
250 WR%=WR%+1 

255 FRI NT X PRINT"MI SPIACE* LA RISPOSTA COR 
RETTA E T ” 

260 PRINT:PRINTSPC(5)5T$(Rl%,R2%) 

300 PRINT:PRINT:PRINT:PRINT 
305 PRINT"PUNTÉGGlO :” 

310 PRINTSPC (5) RTI ; " GIUSTE'* 

315 PRINTSPC ( 5) WR% ; n SBAGLIATE 11 

320 PRINTSPC (5) HEI;*' RICHIESTE DI AIUTO n 

325 IF RT3 = 29THEN400 

330 PRINT: PRINT"PREMI UN TASTO PER CONTINO 
ARE " 

335 GET A3 : IF A$=""THEN 335 
340 GOTO 100 

400 IF WR%+HE% =QTHEN4 30 

4 05 PRINT'*E 1 TUTTO, MA NON TUTTE LE TUE RI 
SPOSTE M 

406 PRINT"ERANO GIUSTE O TI HO DOVUTO AIUT 
ARE * " 

408 PRINT 11 PREMI UN TASTO PER RICOMINCIARE 1 ' 

410 GET A3 :1F A$-" n THEN41 0 
415 GOTO 4 5 

430 PRINT:PRINT M CI SEI RIUSCITOììL lì " 

43 5 PRINT 1 'UN PUNTEGGIO PERFETTO , ED IO NON 
TI HO" : PRINT 11 DOVUTO AIUTARE" 

440 PRINT: PRINT f, PREMI UN TASTO PER RICOMIN 
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CI AFE" 

445 GET A$;IF A$ = H,, THEN 445 
450 GOTO 45 


STATI E CAPITALI (FILE DATI) 

10 DIM ST$(2 9,1) : DEVICE"8: REM DEVICELI PER 
IL NASTRO 
15 POR 1=0 TO 28 
20 FOR J=0 TO 1 
25 READ ST$ (I, J> 

30 WEXTJ 
35 NEXTI 

40 OPEN 1 ,DEVICE,1 , "STATI 1 * 

45 FOR 1=0 TO 28 
50 FOR J=0 TO 1 
55 PRINT#1j ST$(I,J) 

60 NEXT J 
65 HÉXT I 
70 CLOSE 1 

7 5 DATA ALBANIA,TI RANA,ANDORRA,ANDORRA,AUS 
TRI A , VIENNA , BELGIO , BRUXELLES y 

80 DATA BULGARIA , SGFIA,CECOSLOVACCHIA,PRAG 
Ai DANIMARCA,COPENAGHEN 
85 DATA FINLANDIA,HELSINKI,FRANCIA,PARIGI, 
GERMANIA FEDERALE,BONN 
90 DATA GERMANIA ORIENTALE,PANKOV,GRAN BRE 
TAGNA,LONDRA,GRECIA,ATENE 
95 DATA IRLANDA ,DUBLINO,ISLANDA ,REIKJAVICK 
,JUGOSLAVIA,BELGRADO 

100 DATA LIECHTENSTEIN F VADUZ,LUSSEMBURGO,C 
ITTA 1 DEL LUSSEMBURGO 

102 DATA MALTA,LA VALLETTA,NORVEGIA,OSLO,O 
LANDA,L’AIA 

105 DATA POLONIA,VARSAVIA,PORTOGALLO,LISBO 
NA,ROMANIA,BUCAREST 
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Ilo DATA SPAGNA/MADRID,SVEZIA,STOCCOLMA,SV 

I ZZERÀ,BERNA — 

115 DATA UNGHERIA,BUDAPEST,URSS f MOSCA 

0tf 
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3.2 

Parola misteriosa 

Doug Hapeman — versione per C64 di Eric Brandon 


Questo gioco di parole è caratterizzato da una grafica animata e 
dagli aprite. È anche un intelligènte aiuto didattico per genitori, 
insegnanti e studenti, che possono ripassare e fare pratica suif or- 
tografia delle parole . 

Se avete giocato al «Gioco dell'impiccato», non avrete problemi 
ad imparare «Parola misteriosa*. Anche se il concetto è simile, 
esiste una differenza. Invece di una forca vedrete dei merli volare e 
sentirete un'allegra musichetta. 

All'Inizio del gioco appare un viso sorridente in una piccola 
capanna, circondata dagli alberi e dal paesaggio. Sul fondo dello 
schermo si vedono le lettere dell'alfabeto, mentre in cima ci sono 
degli spazi vuoti, che rappresentano la parola misteriosa. Quando 
scegliete una lettera, se la scelta e giusta, un uccello vola sulla 
lettera; se la scelta è sbagliata, un uccello va a posarsi su una pertica. 
Un numero eccessivo di merli non vi permettono di fare altre 
mosse e vi viene mostrata Sa parola corretta. 

Et programma contiene 53 parole. Potete cambiare le parole, o 
aggiungerne delie altre all'elenco, semplicemente scrivendo le 
vostre istruzioni DATA a cominciare dalla lìnea 2780. La sola limi¬ 
tazione è che l'ultimo dato dev'essere un asterisco (*). 
Animazione 

La caratteristica più interessante di « Parola misteriosa» è l'ani¬ 
mazione delPuccello, l'uccello vola in cima allo schermo, viene giù 
per prendere le lettere o sedersi su una pertica, a seconda che la 
vostra scelta sia corretta o meno. 

Quando si muove, l'uccello batte Je ali, dando l'illusione del 
volo. Ciò è possibile per mezzo della visualizzazione rapida di 
posizioni differenti. Nei film questo si realizza facendo passare 
molti fotogrammi al secondo davanti alla luce del proiettore. Per 
dare l'illusione del battito delle ali anche noi dobbiamo creare 
alcune inquadrature di un uccello in volo. 
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Per mezzo di un programma per la creazione degli iprite abbia¬ 
mo dapprima disegnato ['uccello che potete vedere in Figura 1. Poi, 
usando lo stesso sprite, abbiamo disegnato altri due uccelli, uno 
con le ali sollevate (Figura 2) ed uno con Je ali abbassate (Figura 3). 
Utilizzando queste forme abbiamo disegnato altri tre uccelli iden¬ 
tici ai primi tre, ma senza 3e zampe, in questo modo abbiamo a 
disposizione tre uccelli che trasportano le lettere e tre uccelli che 
volano liberi, Quindi abbiamo scritto le istruzioni DATA nel pro¬ 
gramma, come se dovessimo creare sei differenti sprite. 

Subito dopo la RAM dello schermo ci sono otto locazioni di 
memoria, che dicono al C64 dove andare a cercare nella memoria 
le forme degli otto sprite. In genere queste locazioni sono dalla 
2040 alla 2047 ($07F8-$07FF), Eseguendo rapidamente il PQKE 
della locazione 2040 con il puntatore di ciascuna figura, sembra 
che l'uccello batta le ali. Per vedere come ciò viene realizzato 
guardate le lìnee 2000-2060. Si tratta della routine che fa volare 
l'uccello in cima allo schermo, finché non premete un tasto. La 
linea 2050 incrementa il numero della figura. Il POKE viene realiz¬ 
zato alla fine della linea 2000. 

Un'altra importante caratteristica del gioco consiste nel fatto che 
quando la vostra scelta è giusta, l'uccetlo scende a prendere la 
lettera e la porta fino alla parola da comporre. 

Come viene incorporata la parola nello sprite? 

Nella ROM contenente il set di caratteri dalla locazione 53248 
(tDOOO) la forma di ciascun carattere è contenuta in otto byte. 
Ogni byte forma una riga ed ogni bit è una colonna delia riga, A 
seconda che il valore del bit sia 1 o 0, il pixel corrispondente sarà 
visibile o no nel carattere. Lo sprite è largo 24 bit, cioè quanto tre 
caratteri. Ciò significa che mettendo i dati della forma del carattere 
nel terzo byte dello sprite possiamo includere nello stesso la forma 
di un carattere. Questa tecnica può venire utilizzata in qualsiasi 
programma in cui sia necessario muovere delle lettere o un testo 
dolcemente. Per vedere come è stato fatto esaminate le linee 2180~ 
2260, 

Le linee 2160 e 2190 servono a far sì che la ROM in cui vengono 
conservati i caratteri possa essere letta con delle istruzioni PEEK. E 
servono anche a disattivare la tastiera. Le linee 2200-2240 prendo¬ 
no i dati dei caratteri e li mettono negli sprite. Infine le linee 2250 e 
2260 rendono nuovamente inaccessibile la ROM dei caratteri e 
riattivano la tastiera. 
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PAROLA MISTERIOSA 

100 GOSUB 2660 
110 X“RND{-TI) 

120 DIM W{20) f tf${500} 

130 GOSUB 1190 lREM LA CASA 

140 FRI NT" {HOME} { BLU} PREGO ATTENDERE... 1 * 

150 GOSEJB 1 380 : REM POKE DEGLI SPRITE 

160 GOSUB 1 970 : REM PAROLE 

170 GOSUB 690 zREM CREA GLI SPRITE 

180 PRINT"{HOME}{ 18 SPAZI}” 

190 {RND(1)*N+1 ) 

200 GOSUB 650 

210 L$ = fl ABCDEFGH IJKLMNOPQRSTUVWXYZ" 

2 20 PRINT”I HOME}{ 17 GIU'H 8 DESI"? 

230 POR 1=2 TO 14 
2 40 PRINTMIDS [L$,1, 1 ) " {DES}”; 

250 NEXT 

260 PRINT:PRINT ,T {GIU T } { 8 DES} ” ; 

270 FOR 1=15T0 27 
2 SO PRINTMID$ {L$ ,I, 1)” {DES}”; 

290 NEXT 

300 PRINT"{H0ME}{ 4 GIU 1 }"SPC(18 -LEN(G$ )) ; 

310 FOR 1=1TO LEN{G$) 

320 PRINTMID$ (G$ ,!,!)”[DES } 11 ; 

330 NEXT 

340 IF COUNTO LEN(W$ ) THEN420 
350 POKE 198,0 

360 FOR DL=lTOl00 :NEXTDL:CL=CL+1:IFCL=3THE 
NCL=1 

370 PRINTMID$( u {BLK} (C¥n}”,CL, 1); 

380 PRI NT” { HOME} { 12 SPASI} HAI VINTO IMJ" 

390 GETASiIFA$=””THEN 360 
400 GOTO 2610 
410 GOSUB 2000 

4 20 GETA$ i ÌFA$< T, A ,, ORA$> " Z " ANDA$ O " ^ t, THEN4 1 
0 
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430 IF = THEN 760 
440 P-ASC( A$ )-64 

450 IF MID$(L$,P+1,1)<> N "THEN540 
460 PRINT" IHOME} ( 4 GIUMÌ B SPAZILA! GIÀ 
* SCELTO QUESTA LETTERA 11 
470 FOR 1=1 TO 800:NEXTI 
4 80 FRINT"tHOME }{ 4 GIU'H 38 SPAZI}” 

490 FRINT"{HOME }{ 4 GlU 1 ) "SPC(1B-LEN{G$)); 

500 FOR 1=1 TO LEM(G$) 

510 PRINTMID8(G$,I,1ì"{DES}”; 

520 NEXT 
530 GOTO 420 

54 0 L$ = LEFTS( L$ , P)+” "+MID8(L$,P+2) 

550 RF = 0 ; REM CONTATORE DELLE RISPOSTE COR 
RETTE 

560 FOR 1=1 TO LEN(WS) 

570 IF MIDS<>A$ THEN 61Q 
580 G$-LEFT$ (G$,I)+MID$(W$,1,1 ) +MID$ (G$,1 + 
2 ) 

590 RF= RF+Ì 

600 CGUNT=COUNT+1 

61 0 NEXT I 

620 IF RF=0 THEN GOSUR 1030 
630 IF RF THEN GOSUB 2070 
640 GOTO 220 
650 G$ = M 11 

660 FOR 1=1 TO LEN£W$) ì G$=G$ + ,, - lt i W( IS =0:NE 
XT 

670 RETURN 
6 80 1 = 1+1 :GOTO!98 0 
690 REM CREA GLI SPRITE 
700 V= 53248 

710 FOR 1=0 TO ISìPOKE V+I f Q:NEXT 
720 POKE V+21,255 

730 FOR X=V+39 TO V+46:P0KE I,0sNEXT 
740 X=0:Y=60:S=25l 
750 RETURN 
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760 PRINT" {HOME} {BLU} LA TUA MOSSA: ,f ; 

770 PONE V+ 21 ,PEEK[V+21)AND2 54 

780 FOR 1 = 1 TO LEM (WS) : PRINT" [ < @>} *' ; :NEXT 

7 90 PRI NT* 1 { HOME} { 18 DESSOUS; 

800 IF LEN(GU$) <LEN(W$) THENFRINT" E <X> } 

810 IF LEN(GU$} <LEN{W?) - 1 THEN POR 1 = 2 TO 
LEN [ W$ ) - LEM ( GU$ ) : PRINT" [ < @ >} " ; 

820 GET K$ : IF K$= ir,, THEN 82 0 
830 IF K$ =CHR$(20) AND LEN(GU$ ) >0 THEN GU$ 
= LEFT${GU$ f LEN(GU$)- 1}: GOTO?90 
840 IF K$=CHR$(13) AND LEN(GU$)“LEN(W$) TH 
EN 870 

850 IF K$>="A™ AND K$<="Z" AND LEN (GU$ ) <LE 
N(W$) THEN GU$-GU$+K$ 

860 GOTO 790 

370 IF GU$OW5 THEN 930 

880 PRINT"(HOME}( 38 SPAZI}" 

8 90 PRINT" { HOME} { 4 GIU 1 } "SPC ( 1 8 -LEN ( " fl +W 

$)) ; 

900 FOR 1=1TO LEN(" "+W$> 

910 PRINTMIDST 1 "+W$,1,1)"{DES}"; 

920 NEXT: GOTO3 50 

930 PRI NT IT {HOME} { BLK} { 9 SPAZI}MI SPXACE*. 

. HAI PERSO{ 4 SPAZI}" 

94 0 PRINT ,I (BLK}LA PAROLA ERA.., 1 ' 

9 50 PRINT" ( HOME} { 4 GIU 1 } "SPC ( 1 3-LEN ( t! "+W 

$) ) ; 

960 FOR I-1TO LEN ( M IT +W$) 

970 PRINTMIDS ( " "+W$, I, 1 ) "{DES} ,r ; 

980 FOR D=1 TO 200:NEXT 

990 NEXT 

1000 POKE 198,0 

1010 GETAS : I FA$ =" "THENÌ 010 

1 020 GOTO 261 0 

1 030 DB=DB+1 :S-S-3 

1 04 0 DX-32 *DB+16 :DY= 2 2 5 

1050 IF DB-8 THEN DB=0 
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1 060 POKEVjtXAHD255 ìPOKEV+1 6,PEEK(V+1 6) AMD2 
540R-(X>2 55}:POKE V+l,Y:POKB204Q,S 
1070 IF X-0 THEN POKE V+21,PEEK(V+21)ORI 
1080 FLAG-0 

1 090 IFABS(X-DX)>1THBNX=X+3:FLAG=1:1FX>344 
THEN X=0:PQKEV+21 # PEEK{V+21)AND254 
1100 IF Y<DY THEN Y-Y+2:FLAG=1 
1110 S=S+1 :IFS = 25lTHENS = 248 
1120 IF FLAG THEN 1060 
1130 X=PX:Y=DY 

1140 POKEV+ 2*DB,XAND2 55 *POKEV+16,PEEK(V+l6 
)OR(2 tDB}*(-(X>255) ) 

1150 POKEV+2*DB+l, Y:PQKE2G40+DB,254 
1160 IF DB< > 0 THEN POKE V+21 f PEEK(V+21 )AND 
2 54 

1170 X=0:Y-60:IF DB=0 THEN 930 
1180 RETURN 

1190 POKE 53281,3:P0KE 53280,4 
1200 PRINT*{CYN}{CLR} 

1 21 0 PRINT'M 4 GIU' } 

1220 FRINT 

1230 FRINT'M 5 SPAZI}{GRN1( 3 SPAZI}(RVS} 

{ 2 SPAZI}{OFF }[ 10 SPAZI}{WHT}[<D>) 

{su} {RVS} [<B>HOFFl {GIU*} { 6 SPASI} 

{GRN } 

1240 FRINT"{ 6 SPAZI}{RVS}[<K>3l 4 SPAZI} 
{OFF} [< J> 3 { 6 SPAZXHRVS} £yEL}£[<*>] 
(BLKHOFF}{< 2 G>){ 3 SPAZlHGRN} 
{RVS}[<J>1 t<L>}{OFF} 

1250 PRINT'M 6 SPAZI){RVS}[<J>Ì{ 4 SPAZI} 

[<L>1{OFF}{ 5 SPAZI}{RVS}{YEL}£ 

{ 2 SPAZI)[<*>]{OFF}{BLK}[<G>] 

{ 3 SPAZI}{GRN} {RVS}{ 3 SPAZI}{OFF} 
1260 PRINT"{ 6 SPAZI}{RVS}[<G>1{ 4 SPAZI} 
[<N>]{OFF}{ 4 SPAZI}{RVS}{YEL}£ 

{ 4 SPAZI}[<*>}{OFF}{GRN}{ 3 SPAZI} 

{RVS}[ < J>}{ 3 SPAZI}1<L>3{OFF} 
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1 2 70 PRINT"{ 6 SPAZI IfRVSH 6 SPAZI}{OFF} 

{ 4 SPAZI]{RVS}{RED}{ 4 SPAZI}[<£>] 
{OFF}{GRN}[ 3 SPAZI}{RVS}{ 5 SPAZI} 

{OFF} 

1280 FRINT"{ 6 SPAZI}[C5>] { 2 SPASl}{RVS} 

{ 2 SPAZI}(OFF}£ 6 SPAZI](RVS){RED} 
[<£>]{ 4 SPAZI HOFFH 2 SPAZI} {GRN} 

{ 3 SPAZI}{RVS} [<S>] {OFF} 

1290 PRINT"{RVS} [< 6 >]{ 8 SPAZI}[<5>] 

{ 2 SPAZI} [<6>H 6 SPASI] {RED} 

{ 2 SPAZI}[<I>] t<F>1 [<£>][<€>] 

{ 5 SPAZI}[<5>] 1<6>] { 12 SPAZI}'*; 

1 300 PRINT 1 " { 8 SPAZI} E<5>]{ 2 SPASI] [<6>] 

{ 6 SPAZI]{RED }[ 2 SPAZI]{OFF] {RVS} 
[<K>]{ 2 SPAZI}[<6>) { 5 SPAZI}{<5>] 
[<6>1 [ ì 2 SPAZI}* 1 ? 

1310 PRINT 1 ' {<6>3 {RVS} TI ; 

1320 FOR 1 = 0 TO 3 :PRINT*' { 40 SPAZI} " ; :NEXT 

1330 FOR 1=1 TO 3 : L=1024+23*40+1*4 :POKE 
L,114:POKEL+54272,0:NEXT 
1340 FOR 1=0 TO 39;POKE 1024+24*40+1 f 160:P 
OKE 55296+24*40+1,13;NEXT 
1350 PRINT"{HOME} 

1 360 PRINTF ,l {BLK} 

1 3 70 RETURN 

1 380 1=1 5 872 :IFPEEK(1+1)=96thenfqrx“ 1T064* 
6+2 : READA:NEXT: RETURN 
1390 READ A;IF A=256 THEN 1410 
1400 POKE I,A:i=I+l ìGQTQ 1390 
1410 FOR 1=0 TO 63:POKE 254*64+1,PEEK{249* 
64+1):NEXT:RETURN 
1420 DATA 0,96,0,0,113,224,0 
1430 DATA 121 # 176,0,125,252,117,193 
1440 DATA 192,127,255,192,113,255,128 
1450 DATA 0,252,0,0,24,0,0 
1460 DATA 24,0,0,102,0,0,102 

SO 
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1 470 DATA 0,0,0,0,0,0,0 

1 4 80 DATA 0,0,0,0,G,0,0 

1490 DATA 0,0,0,0,0,0,0 

1500 DATA 0,0,0,0,0,0,0 

1510 DATA 0,0,0,0,0,1,224 

1520 DATA 0,1,176,0,127,252,117 

1530 DATA 193,192,127,255,192,113,255 

1540 DATA 128,0,252,0,0,24,0 

1550 DATA 0,24,0,0,102,0,0 

1 560 DATA 102,0,0,0,0,0,0 

1570 DATA 0,0,0,0,0,0,0 

1580 DATA 0,0,0,0,0,0,0 

1 590 DATA 0,0,0,0,0,0,0 

1 60 0 DATA O,0,0,0,0,0,1 

1610 DATA 224,0,1,176,112,127,252 

1620 DATA 127,221,192,115,185,192,1 

1630 DATA 179,128,0,172,0,0,24 

1640 DATA 0,0,24,0,0,102,0 

1650 DATA 0,102,0,0,0,0,0 

1 660 DATA 0,0,0,0,0,0,0 

1670 DATA 0,0,0,0,0,0,0 

1680 DATA 0,0,0,0,0,0,0 

1690 DATA 0,0,0,0,96,0,0 

1700 DATA 113,224,0,121,176,0,125 

1710 DATA 252,117,193,192,127,255,192 

1720 DATA 113,255,128,0,252,0,0 

1 730 DATA 0,0,0,0,0,0,0 

1 74 0 DATA 0,0,0,0,0,0,0 

1 750 DATA 0,0,0,0,0,0,0 

1760 DATA 0,0,0,0,0,0,0 

1 770 DATA 0,0,0,0,0,0,0 

1 780 DATA 0,0,0,0,0,0,0 

1790 DATA 0,1,224,0,1,176,0 

1300 DATA 127,252,117,193,192,127,255 

1310 DATA 192,113,255,128,0,252,0 

1 820 DATA 0,0,0,0,0,0,0 

1 3 30 DATA 0,0,0,0,0,0,0 

1 84 0 DATA 0,0,0,0,0,0,0 
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i 


1 350 
1 860 
1 870 
1 880 
ì 890 
1 900 
7 91 0 
1 92 0 
1 930 
1 940 
1 950 
1 960 
1 970 
7 980 

7 990 
2000 

201 0 


DATA G,G,0,0,0,0,0 
DATA 0,0*0,0,0,0,0 
DATA 0,0,0,0,0*0,0 
DATA 0,0,1,224,0,1,176 
DATA 112,127,252,727,221,192,115 
DATA 185,192,1,179,128,0,172 
DATA 0,0,112,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,256 
1 = 1 

BEAD W$ (I) S IFW$ (Il ~ Tl * *' THENN" 1-1 : RETUR 
N 

1 = 1 + 1 ; GOTO1980 

POKEV,XAND255 :POKEV+16,PEEK(V+76)AND2 
54OR-{X>255) :POKE V+l,Y:POKE2040,S 
IF X= 0 THEN POKE V+21,PEEK{V+21)ORI 


2020 X=X+3:1FX>3 44 THEN X= 0 ;POKEV+27,PEEK( 
V+21}AN0254 

2030 Y=Y-1+RND(1)*2 ;IFY>100THENY=99 
2040 IF Y< 50 THEN Y=50 
2050 S = S+7:1FS = 254THEN$=251 
2060 RETURN 

2 070 DX=INT[P+13*(P>7 3) ) *1 6+24 + 4 0 

2080 DY=173+INT(P/l 4) *24:IF S>25G THEN S=S 

-3 

2090 POKEV,XAND255:FOKEV+l6,PEEK(V+16)AND2 
540R- [X>255) :POKEV+l ,Y:POKE2040,S 
2100 IF X=0 THEN POKE V+21,PEEK(V+21)ORI 
2110 FLAG-0 

2120 IFABS(X-DX)>2THENX=X+3:FLAG=1;IEX>344 
THENX=0:POKEV+21,PEEK{V+21 )AND254 
2730 IF Y<DY THEN Y=Y+2:FLAG=1 
2140 5-5+1 :IFS = 251THEN£=248 
2150 IF FLAO THEN 2090 
27 60 X=DX:Y=DY 
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2170 POKEV,XAND2 55:PQKEV+16,PEEK(V+16)AND2 
540R-(X>255):POKEV+1, Y :PQKE2040,249 

21 SO POKE 56334 r PEEK(56334)AND 2 54 
2190 POKE 1 ,PEEK(1)AND251 

2200 FOR 1-0 TO 7 
2210 B=PEEK(53248+3*F+I) 

2220 FOR J = 248 TO 250 
2230 POKE J*64+4 0+1*3, B 
2240 NEXT J,I 

22 50 POKE 1 f PEEK(1)OR4 

2260 POKE 56334,PEEK(56334)OHI 

2270 PRINT'MhOMEÌ { 17 GIU f }{ 8 DES ; 

2280 FOR 1 = 2 TO 1 4 
2 2 90 PRIKTMIDS (L$ , I, 1 ) 11 {DES } M ; 

2300 NEXT 

2310 FRINTtPRINT" [GIU 1 }{ 8 DES)"? 

2320 FOR 1 = 1 STO 27 

2330 PRINTMID$(L$ f 1,1)"{DES) U ? 

2340 NEXT 

2350 DX-160-8*LEN(G$):DY=69 

2 360 POKEV,XÀND255:POKEV+16,PEEK(V+16)AND2 
54OR-(X>255);POKEV+1,Y:POKE204O,S 
2370 IF X~0 THEN POKE V+21,PEEK(V+21)ORI 
2380 FLAG=0 

2390 IFABS(X-DX) >2THENX=X+3:FLAG= 1 :IFX>344 
THEN X =0 :POKEV+21,PEEK(V+21 )AND254 
2400 IF Y>DY THEN Y=Y-2;FLAG=1 
2410 S=S+1 :IFS=25lTKENS=24a 
2420 IF FLAG THEN 2360 
2430 X=DX:Y=DY 

2440 POKEV,XAND2 55:POKEV+16,PEEK(V+16)AND2 
54OR-(X> 2 55) :POKEV+1,Y:POKE2O40,249 
2450 FRINT"{HOME){ 4 GIU 1 }"3PC(18-LEN(G$)) 

a 

2460 FOR 1=1TO LEN(G$) 

2470 IF H1D$(G$ r I t 1)=A3 THEN PRINT A$;:RF- 
RF-1 :IFRF = 0 THEN GOSUB 2560 
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2480 IF MID$ (G$, l f 1) <>A$ THEN PRINT'M OES } " 

u 

2490 PRINT"{DES}"? 

2500 IF RF= 0 THEN I = 100 :G0T02540 
2510 FOR J=0 TO 1 5 :X-X+l :S = S+1 : IFS"251THEN 
$=248 

2 520 POKEV,XAND255;POKEV+16 , PEEK(V+16)AND2 
540R- (X> 2 55) :P0KE2G4Q,S 
2530 NEXT J 
2 540 next I 
2550 RETURN 
2560 FOR K = 0 TO 7 
2570 FOR J = 2 4 8 TO 250 
2 580 POKE J* 64 + 4 0+R* 3,0 
2590 NEXT J,K 
2600 RETURN 

2610 PRINT 11 {CLR} { 7 GIU r HBLK}VUOI GIOCARE 
DI NUOVO (S/N) ?" 

2615 POKE V+21 ,PEEK(V+21 )AND254 
2620 PRINT"£ 10 GIU 1 )NE HAI PERSI i" 

2 63 0 GETAS :IFA$O"N"AND A$O"S"THEN2 630 
2 64 0 IF h$ = "S T, THENPOKE V+ 21 f 0: RUNl 1 0 
2650 END 

2660 POKE 53281,0:POKE 53280,0 

2670 PRINT"{CLR]{YEL}{ 14 SPAKI}ISTRUZIONI 

2630 PRINT"{ 2 GIU 1 ì{WHT}SCEGLI LE LETTERE 
PER INDOVINARE LA" :PRINT"PAROLA SEGR 
ETÀ> 11 

2690 PRINT Tl {GIU’ }SE SCEGLI UNA LETTERA SBA 
GLIATA," 

2700 PRINT"{GIU 1 )L'UCCELLO SCENDERÀ 1 SUL S 
UO TRESPOLO-" 

2710 PRINT"{GIU 1 } IL GIOCO FINISCE QUANDO T 
UTTI I" 

2720 PRINT"[GIU 1 )TRESPOLI SONO OCCUPATI O 
QUANDO INDOVINI" :PRINT"LA PAROLA, 1 ' 
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27 3 0 FRI NT"{ 2 CIU'H 4 SPAZI}PREMI IL TAS 
TO "CHRS (34) 11 *- n CHR$ (34) 11 QUANDO VUOI" 

2740 PRINT"{GIU* }INDOVINARE LA PAROLA. SE 
SBAGLI, PERDI." 

2750 PRINT"{ 3 GIU 1 }{ 9 DES}{YEL}PREMI UN 
TASTO PER COMINCIARE" 

2760 GETA$:IFA$=""THEN2760 

2770 RETURN 

2780 DATA FELICE ,BRISCOLA,FAMIGLIA, BAMBINI 

2790 DATA FINESTRA,TRENO,NANO,UCCELLI 

2800 DATA SUPERMAN,CONCERTO,POPOLO,MAGICO 

2810 DATA SPAZIO,SCIENZA,PIANETI,GALASSIA, 
STELLE 

2820 DATA STANZE,INSEGNANTE,GESSO,LAVAGNA 

2830 DATA SCHERMO,COMPUTER,TASTIERA,PROGRA 
MMA 

2840 DATA ORTOGRAFIA,PAROLE,COLORI,LETTERE 

2850 DATA MERCATO,STRADE,QUADRATI,TRIANGOL 
O 

2860 DATA FILM,NAVICELLA,LASER,AEREOPLANO, 
BASTIMENTO 

2870 DATA BASTONE,ROCCIA,CARTA,VINCERE,POS 
TO,SPETTACOLO 

2 880 DATA CANALE,ESECUZ IONE,SOLDI,CAMICI A 

2890 DATA SILENZIO,CHIASSO,BIGLIARDO,PANEI 
LO,MOTOCICLETTA,* 
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3.3 

Oil Tycoon 

Gordon F. Wheat — Varatone per C64 di Chns Metcalt 


Immaginate di essere P. J. Uing e di voler diventare ricco con ìf 
petrolio, ma la ricerca del petrolio non è cosi facile come può 
sembrare. Ci sono degli ostacoli da superare per avere un profitto. 
Si tratta delle formazioni di pietre che vi distruggono la trivella. 
Potete farle saltare con la dinamite, ma la dinamite è in quantità 
limitata. Delle sacche di gas naturale sì formano a volte nelle cavità 
da cui avete estratto il petrolio: se vi urtate contro, tutta la vostra 
attrezzatura salterà in aria. Ci sono anche dei «diavoletti» che vìvo¬ 
no nel petrolio. A loro non piace molto che voi prosciughiate le loro 
caverne. Ma voi non desìstete, perché voi siete il Signore del 
Petrolio. 

Ho fatto in modo che «Oil Tycoon» fosse adatto sia agli adulti che 
ai bambini Poiché il gioco non si basa sulla velocità dei riflessi, ma 
piuttosto sulla strategia, aiuta a pareggiare i conti con le disfatte 
subite con gli altri videogiochi. La vostra strategia migliorerà pian 
piano e dopo breve tempo comincérete a guadagnare o a raggiun¬ 
gere alti punteggi, se preferite. 


Livelli di difficoltà 

Alla fine di ogni partita sullo schermo vengono mostrati i pun¬ 
teggi più alti raggiunti per ciascuno degli otto livelli di difficoltà. In 
cima allo schermo potrete vedere il punteggio ed il livello raggiunto 
nella partita appena terminata. 

Sul fondo dello schermo compare la scritta ^LIVELLO 
12345678». Scegliete il livello di difficoltà muovendo il joystick 
verso sinistra e verso destra e premendo il pulsante di fuoco quan¬ 
do il livello desiderato lampeggia. El livello 1 è adatto ai bambini più 
piccoli. Raccomando ai giocatori più esperti di cominciare col 
secondo livello. Più il livello é alto, tanto più difficile sarà il gioco. Le 
diverse condizioni per gli otto livelli di difficoltà vengono mostrate 
nella tabella seguente. 
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ó 


Livello 

Candelotti 
di dinamite 
per attrezzatura 

Formazioni 
di pietre 

Formazioni 

invisibili 

1 

3 

20 

NO 

2 

2 

20 

NO 

3 

3 

30 

NO 

4 

2 

30 

NO 

S 

4 

20 

SI 

6 

3 

20 

SI 

7 

4 

30 

S! 

8 

3 

30 

SI 


Come giocare a Oìl Tycoon 

Dopo aver scelto il livello sullo schermo viene disegnato i! cam¬ 
po petrolifero. Sarà diverso ogni volta che giocate; non dovreste 
mai vedere lo stesso campo due volte. Per ciascun gioco avete a 
disposizione cinque attrezzature per la perforazione, ognuna delle 
quali ha 20 lunghezze di trivella ed un certo numero di candelotti di 
dinamite, in funzione del livello di difficoltà scelto. 

Nell'angolo in atto a sinistra c'è il numero di attrezzature che 
ancora vi restano. In alto a destra è riportato il punteggio. In mezzo 
ci sono i candelotti di dinamite che vi restano per l'attrezzatura che 
state utilizzando. La seconda riga mostra il numero dì lunghezze di 
trivella non utilizzate dall'attrezzatura in funzione. Quando perfo¬ 
rate il suolo la trivella verrà usata una lunghezza per volta, e sarà 
rimessa al suo posto quando la recuperate. La parte bassa dello 
schermo è il campo di gioco. I quadrati gialli rappresentano dello 
sporco, I quadrati neri il petrolio ed i quadrati irregolari sono gli 
ammassi di pietre. 

Muovete il joystick verso sinistra o verso destra per posizionare la 
trivella sulla colonnache volete perforare. Per la perforazione tirate 
il joystick verso di voi. Per ritirare la trivella spìngete il joystick in 
avanti, Non potete muovervi quando la trivella è nel sottosuolo. 
Non potete forare gli ammassi di pietre, ì diavoletti ed il fondo dello 
schermo. Se ci provate, la trivella resterà incastrata e perderete la 
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lunghezza corrispondente all'attrezzatura utilizzata. Ciò diventa 
molto importante nei livelli di difficoltà superiori al quarto, in 
quanto le pietre diventano invisibili e sono uguali allo sporco. A 
questi livelli è molto facile perdere la maggior parte della lunghezza 
della trivella, prima di rendersi conto che state cercando di perfo¬ 
rare le pietre. Cercate anche di evitare di perforare le cavità da cut 
avete pompato il petrolio in precedenza. In esse si può accumulare 
de! gas naturale, che può poi essere causa di un'esplosione quando 
provate a trivellare una seconda volta. 

Il controllo del pulsante di fuoco richiede una certa pratica, per¬ 
ché ha tre funzioni: durante la perforazione, se l'estremità della 
trivella raggiunge il petrolio o una zona vuota, serve per cominciare 
a pompare; se l'estremità della trivella ha raggiunto un ostacolo, 
serve per far esplodere un candelotto di dinamite all'estremità della 
trivella; se non state perforando, o se avete ritirato completamente 
la trivella, serve per sostituire l'attrezzatura in uso con una delle 
rimanenti. Fate attenzione; è molto facile perdere un'attrezzatura 
ancora buona. La sostituzione dell'attrezzatura in uso é convenien¬ 
te soprattutto quando avete utilizzato tutta la dinamite a disposi¬ 
zione de fi'attrezza tura, o se non vi è rimasta una lunghezza suffi¬ 
ciente per raggiungere il petrolio rimasto vicino al fondo dello 
schermo. 

Usate la dinamite per far esplodere le pietre, i diavoletti o lo 
sporco. Quando lasciate cadere un candelotto di dinamite, esso 
continuerà a scendere finché non raggiungerà uno di questi tre 
ostacoli. Ciò significa che se c'è del petrolio, o una cavità, sotto 
l'estremità della trivella, la dinamite vi passerà attraverso finché non 
va a sbattere contro un ostacolo., 

Pompaggio dei petrolio 

Durante if pompaggio tutto il petrolio che si trova ad un livello 
uguale o superiore a quello dell'estremità della trivella verrà estrat¬ 
to, In altre parole, tutti i quadratini di petrolio a contatto con quello 
che state pompando saranno anch'essi estratti solo se si trovano 
sopra o ai fati del petrolio pompato. Tutti i quadratini che si trovano 
soffo quelli che vengono estratti resteranno dove si trovano. 

Se, durante il pompaggio, scoprite un diavoletto, esso farà esplo¬ 
dere la vostra attrezzatura. Se provate ad estrarre del petrolio che si 
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trova allo stesso livello o sotto un diavoletto non ancora scoperto, e 
che è a contatto con lo spazio da lui occupato, farete ugualmente 
esplodere la vostra attrezzatura. 

Piu il petrolio si trova in profondità, tanto piu alto sarà il punteg¬ 
gio che vi verrà assegnato quando lo estrarrete, Per ogni 100.000 
dollari di petrolio estratti avrete a disposizione un'attrezzatura in 
più- Inoltre- se riuscite ad estrarre tutto il petrolio presente sullo 
schermo ed estraete la trivella, vi verrà assegnata un'attrezzatura 
extra e sarà disegnato un nuovo campo di gioco, 

OIL TYCOON 

]00 PRINT”(CLR}[<7>] 11 :IFPEEK(1 4336)-2ANDPE 
EK(1 4005)= 2 4THEN195 

ì 05 POKE532 00 t 6:POKE53281 ,6 :POKE53270,3 
1 1 0 PRINTTAB ( 1 5) 1l ISTRUSIONI ,l SPC{29) " 

[< 12 T> ] PRINT 11 ! GIU 1 } JOYSTICK^ 11 
115 PRINT"{GIU 1 } DESTRA E SINISTRA = MUOVI 
LA TORRE 11 

]20 PRINT" GIU 1 - PERFORA 1 " : PRINT" SU' = RI 
TIRA LA TRIVELLA 11 

125 PRINT 1 ' { 2 GIU 1 }! 2 SPAZI} QUANDO PREMI 
IL BOTTONE DEL FUOCO E LA 11 ; 

1 30 FRI NT 1 'TRIVELLA SI TROVA NEL PETROLIO O 
NEL" 

ì 35 PRINT 1 'VUOTO METTI IN AZIONE LA POMPA- 
SE LA" 

140 FRI NT 11 TRIVELLA SI TROVA NEL SOTTOSUOLO 
FAI" 

142 PRINT"ESPLODERE UNA CARICA DI DINAMITE 

II 

•m 

145 PRINT"{ 2 GIU 1 }STAI ATTENTO ALLE PIETR 
É É ALLE SACCHE" 

147 PRINT"DI GAS RIMASTE NELLE CAVITA T VUO 
TE. 11 

150 PRINT"{ 2 GIU 1 }[CYNfATTENDI[<7>] PER U 
LTERIORI ISTRUZIONI." 
ì 55 PO KE 5 2 r 5 6 : PO KE 5 6,56:CLR:AD=1 4336 


i 
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160 FGRA=ADTOAD+207 ìREADB:PQKEA,fi:NEXT;POK 

135633 4 r PEEK ( 56334 ) AND2 54 iPOKEl , 51 
165 FQRA=AD+256TQAD+471:POKEA,PEEK(3891 2+A 
):NEXT;POKEl,55 
170 P0KE56334,PEEK(56334)ORI 
175 PRINT"{SU }{ 2 SPAZI}PREMI UN TASTO QUA 
NDO SEI PRONTO- " 

180 IFPEEK(197)=64ANDPEEK(653)=0ANDPEEK(56 
320] -1 27THEN1 80 
185 : 

190 : 

195 PRINT"{CLR}":PQKE53280, 6 :PGKE54296,1 5 : 

DIMA%(40) :W=1134 :JS=5632D 
2 00 POKE5 32 82,6:PQKE532 B 3,0:POKE532 70 r 24 :P 
OKE542 91 f 0 :POKE542 92,240 

20 5 FORI =0TO2:POKE542 76 + 1*7 f 8 : NEXT : PO KE 5 3 2 

81 r 3 

21 0 POKE54 2 84,0:POKE54 285,240:POKE54 2 77,0 : 

POKE54278,240:IFZ>B%( T)THENB%(T)^Z 

21 5 POKE53272,21 : PRINT 11 {CLR} [GIU 1 } (RED)" ,T 

, 2 SPAZI}$ U MID$(STR$(S*100),2]".00 

[blu!” 

22 0 PRINTTAB (8) 11 {GIU 1 } LIVELLO { 7 SPAZI} REC 

ORD{ 3 SPAZI }{ GIU 1 } ir 

225 FORACI T08 SPRINT, A," { 2 $PAZ I} $ ,T MID$ ( ST 
R$ (B% (A) *1 00) , 2) " *00”;PRINT:NEXT 
2 30 PRINT”{GlU * } { 3 SPAZIJQUALE LIVELLO ? 

12345678{GRN}":T=1 

2 35 PGKE561 94+T,0:T1 =TiT=T+(PEEK(J$) AND4)/ 
4- (PEEK {JS) AND8)/8:T= (7ANDT-U+1 
240 IFTOTÌ THENPOKE5 61 94+Tl , 6 
245 POKE56Ì 94+T,l:L=3:lFT/2=INT(T/2)THENL- 
2 

250 S=20:IFT=30RT-40RT>6THENS=30 

255 N= 2 4 :IFT>4THENN=2 5 :L=L+1 
2 60 GETA3:IF{PEEK{56320)AND16)=16ANDAS<>CH 
R$ (13) THEN 2 3 5 
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2 65 PGKE532 72,31 : PRINT" {CLR } n i POKE53 280,9: 
PQKE5328],1:M=4:Z=G:K=0;GOSUB590 

2 70 POKEW+X 1 14:X=2Q:P = 20:Y=L:R = 1;GQSUB7Q5: 

GOSUB64 5 :POKEl90,0 
275 : 

200 ; 

285 REM LOOP PRINCIPALE 

290 A=PEEK(JS) : IF (AAND4)=0ANDRAI THENPOKEW+ 
X,1 4 : X» X+(X > Q) 

295 IF(AANDB)=0ANDR=1THENPOKEW+X,14:X=X~{X 
< 39) 

300 POKEW+X r 2 :1FM AAND2)=0ANDP>QTHEN340 

305 IF(AANDl)=0ANDR>1THEN400 

310 IFR>1AND{AANDl 6) =0THEN435 

315 IFR-1 AND( AAND1 6)=0 THEN375 

320 G0T029Q 

32 5 : 

330 : 

335 REM PERFORAZIONE E ESPLOSIONI DI GAS 
340 A=R* 4 0 +W+X:C-PEEK(A) :P=P-1:GOSUB675 
34 5 IFC = NORC = 3ORA >2023THENFORA = 1 T03 i GOS EJB7 
3 0 : NÉ XT: GOTO 2 90 

350 IFRNDd ) >, 06ORCO1 4THENFORB= 1 T03:POKEA 
,C+B:G0SUB73 0:NEXT:R=R+1:G0T029Q 

3 55 FORBII T02:POKEA,C+B:GOSUB7 3 0:NEXT:GOSU 

B735tB-0 

360 R-R-liPOKE542 96,4;IFR<1THENPOKÉ54296 ,1 
5 :POKEW+X,23iGOSUB715:G0T03 75 
365 POKÉ54273,B t POKE54 2 76,129 ;A=R*4 0+W+X:C 
= PEEK(A);PK=PEEK{A+54 272) :POKEA,C+1 
370 POKEÀ+54272 , 1 5:FORD-0TO200 :NEXT:POKEA, 
C = 3 ;POKEA+ 542 72, PK:B=B+10 ì G0TO3 60 
3 75 POKEW+X,14 :X= 20 :M= M-1:P^20:Y*L:R=1:GOS 
UB70 5 :IFM<0THEN2 05 
3 80 GOSUB6 4 5 :GOTQ2 90 
385 : 

3 90 : 
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395 REM RITIRA LA TRIVELLA 

400 R=R-1;B-R*40+W+X:C-PEEK(B):FQRA^lT03iP 
OKEB,C-A:GOSUB73Q:NEXT 
405 P=P+1 ;G0SUB675 : IFR01 THEN2 90 
410 F 0 RA = W+8QT02Q2 3 :IFPEEK(A)-9THEN290 
41 5 NEXT:M=M+1:F0RC=1T03iGOSUB705:NEXT:GOS 
UE3590: GOSUB645:GOTO2 90 
420 ; 

425 : 

430 REM DINAMITE, ZAMPILLI, DIAVOLI 
435 J=2:Q=R-1:FORA=0TO21 : A% (A)=0 :NEXT:B=Q* 
4 0+W+X : A-PEEK ( B) : IFA07THEN4 80 
440 A=W+X:B-40:IFY<1THEN29G 
445 a-A+ 4 0:C=PEEK(A) r POKEA,C+l:IFC=140RC=9 
THENPOKEA r C + 4 

4 50 POKE54273,B:POKE54 2 76,33: FQRD“QT02 00:N 
EXT:D=PEEK(A+4 0) 

455 IFD<>4ANDD0NANDD0 3ANDA<19B4THENB=B-2 
:POKEA r C: GOTO44 5 

460 POKE54276,S:GOSUB735 :FOKEA+5431 2, 1 5 
465 IFCOl 4ANDC09THENR=R-1 

470 Y = Y~1 ;GOSUB665 :GOTO290 
4 75 : 

4 30 A%[X)=1iPOKE54 273,40 :POKE54276,1 29iPOK 
E54296,4tV=W+X-40 

485 IFA=12THENPOKEB,17:Z“Z+Q;POKEV,0 
4 90 E=0:F= 38 ;D = 1:G-1= X = 1;GGSUB53G:POKEV,1 : 

E=3 9;F = 1 ;D-“1 : G"D :1=D;GGSUB530 
495 E=0:F=39:D=1:G=-40:X=0:GGSUB53Q:POKEV, 
0HFCO6THEN51 5 

50 0 Z =J:POKEB,3 ;POKEB + 54272,2 :POKEV,14 :FOR 
A=0TO4Q: POKE54280,08 :POKE54283,1 7 
50 5 POKE532 83,1 4 :POKE542 96,6 :FORB-1T05:NEX 
T 

510 POKE542 96,0 :POKE532 8 3,0:FORBIIT05iNEXT 
B^A:POKE54283,0: B=0 : GOT03 60 
515 IFHTHENQ=Q-1:GOTO490 
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520 POKEV,14;POKE54276,8:PGKE54296,1 5:PQKE 
54233,2:GOSUB705:GOSUB645:GOTO29Q 
52 5 : 

530 IFC=6THENRETURN 

535 H-OiFORA-ETOFSTEPD:IFAl(A)=0THEN570 
540 B=Q*40+W+A+G:C=PE£K(B) 

545 IFC=90RC=12THENP0KEB,C+5:H-l:Z=Z+Q+ABS 
(I)-l:AI(A+I)=1 : GOTO565 
550 IFC=14QRC-1 7THENA%(A+I) =1:H = 1 :GOTO570 
555 |FC=3TH£NC=6ìRETURN 
5 60 h%[ A+I )=0 ;GOTO 5 70 

56 5 IFRND ( ì ) < , 02 ANDCO ì 2THENC=6 i RETURN 
570 NEXT:RETURN 
575 : 

580 ; 

535 REM INIZIALIZZA LO SCHERMO 

590 PRTNT"{HOME}{ 5 GIU' ì [<8>]"; ?FORA = 1T09 

9 : PRINT I1 DDDDDDDD’ 1 ; : NEXT : PRINT"DDDDDDD 11 
« 

5 95 POKE202 3,4:POKE56295,15:B=40Q:C=1 264 iF 

ORA"1T02:F0RD=1T040 

600 E= INT(RND(0)*B/2)* 2 +C :XFPEEK(E)=90RPEE 
K(£+1)=9THEN600 

605 POKEE,9:POKEE+1,9:NEXT:B=36G:C=1 665:NE 
XT:FORA=1T0S 

610 B=INT(RND { 1)*34 0)*2 + 1 264 : C = PEEK (R) :IFC 
=90RC=NTHEN610 

615 POKESiN:PQKEB+54272 f 10;NEXT:FGRA=0TG19 
9:POKE55296+A,0:NEXT:FORA=0TO39 
620 POKE55 3 76 + A r 3 :POKEl 1 04+A,20:NEXT 
625 FORA=0TO3;POKE55337+A,2 :NEXT: RETURN 
630 ; 

635 : 

640 REM AGGIORNA l DATI SULLO SCHERMO 
64 5 PRINT 1 * {HOME} {GRN} *'SPC (23) (STR$ ( 

Z*1OD),2)".00" 

6 50 A=INT ( Z/1 0 00) : IFA=K+1 THEN(C=K+1 :GOSUB70 

5 ;GOSUB7Q 5 :M=M+1 


i 
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655 IFM<1TKENPOKEl 024,T 4:P0KE5529G,14:GOTO 
665 

660 FORA = 1 024TO1 023+WìPOKEA,2 :PGKEA+54272, 
0:NEXT:POKEA,14 :POKEA+54272,0 
665 IFY=OTHENPOKEl031,14:POKE55303,0:G0T06 
75 

670 FORACI 031TOl Q30+Y:POKEA,19 :PQKEA+54272 

,0 :NEXT:POKEA r 14 :POKEA+542 72,0 

6 75 IFP<1THENPGKEl 0 64,1 4 :POKE55336,0 :RETUR 

N 

680 FORB-1 064 TOl 0 63+P: POKER,17;POKEB+54 272 
,0;NEXT;FQKEB,14 :POKEB + 54272,0 
685 RETURN 
690 : 

695 : 

700 REM MUSICA E ALTRE SUBROUTINE 
705 POKE54 2 76,17:FORA-15TO03TEP-1:POKE5429 
6 ,A:POKE54273,86 :FORB=lT025:NEXTB,A 
710 POKE 5 4 2 7 6,8 ; PO KE 5 4 2 9 6,15:RETURN 
715 POKE54 276,8iPOKE54276, 1 29 :POKE54273,91 
:FORD=l5TOOSTEP-1:POKE54296,D 
720 POKE53281, 1 iPOKE53 2 80, 2 :FORE=1TQ70 :NEX 
T:POKE53280,6:NEXT 

7 25 POKE54276,8 ;PQKES4 296, 1 5 i POKE53280,9 :R 

ETURN 

7 30 POKE542S7,20 :POKE54290,8 :PGKE54290,1 29 
:POKE542 90,1 28 :RETURN 

7 35 POKEA,21 :POKEA+40,22 :GOSUB715:POKEA,14 
:POKEA+4 0,14:RETURN 
740 : 

745 : 

750 REM DATI DEI CARATTERI 

755 DATA2 r l 38,164,73,74,52,20,8,64,81 ,37,1 
46,82,44,40,16,24,24,36 
760 DATA60,90,102,231,153,20,42,42,20,62,7 
3,20,20,136,34,136,34,136,34,136,34 
76 5 DATAI 48,2 2,1 4 8,34,1 36, 3 4, 1 36,34,1 48,22 
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,148,22,148,34,136,34,148,22,148 
770 DATA22, 148,2 2,1 4 8,22,1 36/62, 188,62,1 8B 
,62,138,22/ 170,1 70,1 70,170,170 
775 DATAI 70,170, 1 70,1 50,1 SO, 1 50, 170,1 70,1 7 
0,170,170,1 50 f 150,1 SO,1 SO, 1 50, 170,170 
780 DATAI 70,150,1 50,150,150,150,150,150,15 
0,1 50,190,1 90 r 190,190,190,190,1 50,0, G 
785 DATA0,0,0,0,0,0,20,20,20,0,0,0,0,0,20, 
20,20,20,20,O,0,0,2G,20,2G,20,20,20 
790 DATA20,20,20,60,60,60,60,60,60,20,0,60 
,60,60,60,60,60,0,0,0,0,255,255,0,0,0 

7 95 DATA21 8, 1 1 8,1 81 ,1 53,1 1 0,93,197,65,65, 8 

2,150,95,121,181,150,173,2,106,129,20 

8 00 DATA64,162,1 2 9,2,169,128,141 ,19,14 5,1 6 

9,0,133,136,34,136,34,136,34,136,34 
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3.4 

Mosaico 

Brut# Jordan — Ver&rone per C64 di Chris Metcalf 


Questo adattamento di uno dei giochi più noti metterà a dura 
prova le vostre capacità di ragionamento. 

«Mosaico» è la versione per computer di quei giochi basati sullo 
spostamento dei quadrati numerati che facevano impazzire la gen¬ 
te prima dell'arrivo del Cubo di Rubik, Lo scopo del gioco è quello 
di riordinare i quindici quadrati secondo un ordine prescelto, 
facendoli scivolare al l'interno di una cornice. Le prime mosse sono 
facili, ma col progredire il gioco diventa molto più complicato. Vi 
accorgerete di dover magari ricominciare da capo solo per mettere 
al loro posto gli ultimi quadrati. 

19 gioco ha un timer che può arrivare fino a 23 ore, 59 minuti e 59 
secondi; controlla automaticamente se è stato raggiunto l'ordine 
esatto e permette di riprendere il gioco dal punto in cui l'avete 
lasciato o di ricominciare da capo, 

Àll J inizio del gioco vi viene chiesto se volete un limite di: tempo. 
Se rispondete «5# (per Sì), dovete digitare il tempo limite su una sola 
linea, senza spazi o segni di punteggiatura fra le cifre. Per esempio, 
per un tempo limite di 1 ora e 23 minuti scrivete 012300, 

Poi dovete stabilire Lordine che volete raggiungere per vincere il 
gioco. Dopo averlo fatto la metà superiore dello schermo verrà 
cancellata ed apparirà il mosaico. 

Il tasto RETURN o il pulsante di fuoco vi permettono di fare una 
pausa momentanea prima di continuare il gioco, ricominciare o 
smettere definitivamente di giocare. Se vi fermate e poi riprendete 
a giocare, non si ha nessun effetto sul tempo trascorso (visualizzato 
in cima allo schermo insieme al tempo limite). 

Per aiutarvi nel gioco, all'inizio potete selezionare vari tasti per i 
movimenti verso l'alto, il basso, sinistra e destra. Potete anche usare 
un joystick inserito nella porta 2. Il tempo limite è un'opzione di 
questa versione; se non scegliete nessun tempo lìmite, sullo scher¬ 
mo viene visualizzato il tempo trascorso e «TEMPO LIMITE: NE5- 
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SUINO*. 

Se riuscite a mettere i quadrati nel giusto ordine, sullo schermo 
appare il messaggio «HAI VINTO!», insieme ad una breve nota ed al 
tempo impiegato. Se il tempo finisce prima che abbiate terminato, 
sentirete un suono sgradevole, 

MOSAICO 


10 0 POKE5 3 2 80,1 4 :PQKE5328 ì ,6:POKE55,176;PO 
KE5 6,29 ;CLR:POKE54 2 76,8:PGKE54 2 33,8 
! 10 PQKE54 2 77 , Q : POKE542 78 , 2 5 5 :POKE54 2 84 t 0 ; 

PQKE54 2 95,255 :PGKE54296,15 
120 S=1355:SC=S+54272:DIMA$(16) 

130 PRIHT 1, {CLR} I, ;G^Ì 632 ;X=0:DX=ì :P=55904:S 
1 *54276:32-54283;AD=1 232;R=14 
140 PRINT"{CLRJ {GIU* } "TAB (1 1 ) *' { 3 SFAZl}MO 
5AICO( 4 SPAZI] M TAB{ 50) n [< 17 Y>] 

[GIU 1 }" 

1 50 : 

1 60 i 

170 REM TEMPO LIMITE, TASTI DI CONTROLLO 
ISO PRXNT"[<7>J{ 5 SPAZI}VUOI UN TEMPO LIM 
ITE? ";:GOSOB270 
ISO IFIN$<>"S"THEN240 

200 H=1 ; INPUT"{HOME} { 6 GIU 1 ] f 2 £PA2l]ORE 
{ 2 SPAZI}MIN. SEC. (6 CIFRE)" ; T$; IFLE 
N ( T$ ) O6THEN20 0 

210 IFLEFT3{T3,2) >"23 M ORLEFT3[T$,2)<"0"THE 
N200 

220 IFMID3 (T3,3,2) >"5 9"ORMID$ [T3,3,2) < ,T Q"T 
HEN200 

230 IFRIGHTS (T3,2) > IT 5 9 "OPRI GHT3 (T$ f 2) <"0 n T 
HEN200 

240 PRINTMGIIT ì TASTO PER MUOVERE IN SU': 

11 ; :GOSUB2 70 :U$ = IM$ 

245 PRINT 11 {GIU 1 ] { 18 SPAZI) IN GIU*: "}iGOS 
UB270:D$=INS 
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250 PRINT" {GIU 1 } { 15 SFAZIÌA SINISTRA: ” ; : 
GGSUB27G;L$=IN$ 

255 PRINT"{GIU *}{ 17 SPASI}A DESTRA: ;GO 

SUB270:RS=IN$ 

2 60 GOTO310 

2 70 PRINT" [<X>] "} : WAIT1 98, 2 5 5 : GÉTIN$ : PRINT 

"{SIN}";:POKE216,1 :PRINTTNS: RETURN 
230 : 

290 : 

300 REM ORDINE DA RAGGIUNGERE 
310 PRINT"{CLR}"TAB(43)"SCEGLI L'ORDINE CH 
E VUOI RAGGIUNGERE" 

320 PRINT"{GIU 1 }{ 3 SPAZI}1 2345673 
9"SPC{23)"A B C D E F {RVS]SFACE" 

330 PRINT:PRINTTAB(247)"ORDINE" 

340 FORK=0TO3iPOKEl592+K,100:P0KEl792+K f 99 
:PQKE55864+K,R:POKE56064+K,R 

3 50 POKEl631+K*40 f 1Q3:POKEl 636+K*40,101 :PG 

KE55903+K*40,R;POKE55908+K*40,R:NEXT 
360 FORI = 1 TQl 6 :POKEG-t-X, 63 :POKEP+X, 1 

3 70 WA ITI 98,255iGETA$(I) :FORL-I-1TOOSTEP-1 

ilFAS(I)- A$(L)THEN370 

300 NEXT:IFA$(I)=" "THENFORK=0TO4: POKE554 7 
1+K,Ì5 :NEXT;B2 = 32 :GOT0420 
390 IF(A$(I)<"1"ORA$(I)>"F")OR{A$(I)>"9"AN 
DA$(I)<"A")THEN370 

400 B=VAL(A$(I)) :B2=B+48:IFBTHENPOKE5 541 7 + 
2 *B f 15iG0T042 0 

410 B=ASC(A$(IJ)-64 :B2=B:POKE55457+2*B,15 

4 2 0 POKEG+X,B2iX=X+DX:IFX=4THENG=G+4 0 :P = P+ 

40 :X=0 
430 NEXT 
440 : 

4 50 : 

460 REM INIZIALIZZA L'AREA DI LAVORO 
4 70 PRINT"{HOME}":FÓR1=0T064 :PRINT" 

{ 4 SPASI}";:NEXT:PRINT"{HOME}"TAB(126 
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)"MOSAICO" 

480 FGRK=QTQ3:P0KEÌ192 +K,100 sP0KÉ55464 + K ,R 
:POKEl 392+K,99 :FOKE55664+K,R 
4 90 POKEl231+K*40,103 :PQKE55503+K*40,R:POK 
El236+K*40,101 :POKE55508+K*40,R:NEXT 
500 READA,B,0:IFA> = QTHENPQKEAD+A,B:P0KE555 
04 +A,C: GOTO500 

510 FORI=1 TOSO 0 :NEXT* FORESI- 3,80 :POKES1,33 
SPRINT"{HOME}"TAB(23)"{ 10 GIU*){RED} 
{WHT}IVIA'[<7>1" 

520 FORT-1 T0300sNEXT : PRINT 11 (HOME) "TAB (28) " 
{ 10 GIU 1 } { 5 SPAZI} 1 ': POKES 1 , 8:TI$-"00 
0000 " 

530 PRINT"(HOME}"TAB(25)"LIMITE:(CYN} " ;:IF 
T$~" ,1 THENPRI^"NESSUNO" : GOT0580 
540 PRINTLEFT$(T$,2) 11 : "MID$ (T$, 3, 2) " : "RIGH 
TS (T$ ip 2) 11 [<7>] " 

550 : 

560 i 

570 REM LOOP PRINCIPALE 

580 PRINT"{HOME}TEMPO TRASCORSO:{WHT)"LEFT 

(TI$,3,2) 11 : "RIGHTS (TI$, 

2 } 11 {<?>] " 

590 IFH = 1 ANDT$<=TI$THEN75Q 

600 GETB$ : J= 31 - PEEK (56320) AND31 :IFB$ = ,Mt AND 
J = OTHEN580 

610 IFB$=CHR$(13)ORJ-16THENWN=0 : GOTO780 
620 IFB$=D30R(JAND2)THENDR--40:CK-100:GOTO 
660 

630 IFB$ =L$OR(JAND4)THENDR=1 :CK=1 01SG0T066 
0 

640 IFB$-R$OR(JANDS)THENDR--1:CK=103;GOTQ6 
60 

6 50 DR 3 40:CK=99:IFB$< >U$AND(JANDl)=GTHEN5 8 
0 

660 IFPEEK(S+DR)-CKTHEN58Q 

670 POKES,PEEK(S+DR);POKESC,PEEK(SC+DR) : PO 
KES+0R,32 :S-S+DR:SC=SC+DR 

I 
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6 80 FORMATO 120STEP40 :FORN-0TO3:W=PEEK(AD+ 
M+N) ANDl 27 : IFWOPEEK [1 632+M+N) TBEN58G 

6 90 NEXT:NEXT : FRI NT" {HOME} "TAB (2 3) 11 

[ 5 GIU 1 }[CYN}{RVSf HA I VINTO I[<?>] n ! PO 
KESl-3,OìPOKESl,33:WN=1 
700 READNl, N2,D: IFN1=-1THERPOKES1,8:GOTO?8 
0 

7 1 0 PQKES1^ 4,NI IPOKES1 - 3 F N2 :F0RT=1TOD:NEXT 

: GOTO?0 0 
720 : 

730 : 

740 REM FINE DEL GIOCO 

750 PRINT" {HOME} *'TAB (23) M { 5 GIU*}{WHT} 

{RVS)!HAI PERSO i [<7>J":P0KESì^3,1D:P0K 
ESI ,1 7:WN=1 

760 POKES2-3,6G:POKES2,129iFORT=1T0300:HEX 
T:POKES2,8 :P0KES1,8 
770 : 

780 TM$”TI$ :PRINT" { HOME1 "TAB ( 21 ) " 

{ 9 GIU'HD RICOMINCIA" 

7 90 PRINTTAB(21 l'MGIU'} [2) ABBANDONA":IFWN 

=0THENPRIMTT AB(21)"( GIU 1 }(3) CONTINUA" 

800 GETV$:IFV$<"1"QRV$>"3"THEN300 
810 IFV$ = tl l "THENRUN 

8 20 IFV$ = 11 2 11 THE NE ND 
830 IFWNTHEN800 

8 40 PRIRT”{HOME}{ B GIU 1 }":FORI = 1T06;PRINT 
TAB {21 ) 11 [ 18 SPAZI}":NEXT 
850 TI$=TM$:GOTO580 
860 : 

370 : 

8 80 REM INIZIALI % f l AZIONE E MUSICA 
8 90 DATA0#49, 1, 1 ,1 78,3,2 F 51 ,1 , 3, 1 SO , 3 
900 DATA4C,53,1,41,182,3,42,55,1,43 
910 DATAI 84,3,80,57,1 f B1 ,12 9,3,82,2,1 
920 DATAB3,131,3,120,4,1,121,133,3,ì22 
930 DATA6,1,123,32,3,-1,-1,-T 

100 





/ 



Giochi di riflessione 



940 DATA 96,22,150,0,0,50,96, 22, 75,0,0,50, 
96,22,75,49,28,175,96,22,115,49,28 
950 DATAI 75,1 35,33,2 50,0,0,0,-1 ,- 1 ,-1 
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4.1 

Colpo di testa 

Matt Giwor — Versione per C64 di Greg§ Peste 


Ecco un gioco appassionante per tutta fa famiglia. Quanti patloni 
può far scoppiare il down nel tempo stabilito? Per giocare occor¬ 
rono le pad die. 

«Colpo di testa» è un gioco pieno di colori, sìmile ai primi video- 
giochi. È semplice da giocare e piacerà soprattutto ai bambini, che 
apprezzeranno Toso intelligente del suono e dei colori. Il program¬ 
ma fa buon uso delle capacità grafiche del Commodore 64, poiché 
utilizza tutti e otto gli sprite disponibili e include anche una routine 
in linguaggio macchina. Questa routine, gestita dalf'interrupt, per¬ 
mette di ottenere un movimento ottimale nel gioco e di controllare 
la posizione degli sprite. 

Dopo aver digitato, salvato e ricaricato il programma potete 
vedere come la routine in linguaggio macchina continui a funzio¬ 
nare, anche se ia parte del programma in BASIC non funziona più. 
Caricate e date il RUN al programma, poi premete RUN/STOF. Ciò 
fermerà il programma in BASIC, ma il clown continuerà ad essere 
mosso con le paddle. 

Il programma utilizza il registro per te collisioni, per vedere 
quando uno sprite ne tocca un altro. Poiché il contenuto di questo 
registro cambia solo temporaneamente quando due sprite si scon¬ 
trano, il contenuto che rappresenta la collisione dev'essere salvato 
finché non succede qualcosa che potrebbe dì nuovo provocare 
una collisione dello sprite. Quindi il registro viene azzerato e lo 
sprite è pronto per una nuova collisione. La rilevazione delle col¬ 
lisioni fra il clown ed i palloni viene gestita in BASIC. 

Per giocare si usano le paddle nella porta 1. Ma poiché il gioco è 
per una soia persona, solo una paddle è in grado di funzionare e 
serve per muovere la base del down da una parte all'altra, col 
clown sopra. Usate il pulsante di fuoco della paddle per far saltare il 
clown. 

La versione originale di questo gioco è stata scritta per utilizzare 
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le padelle Alari. Se avete te paddle Commodore, dovete cambiare 
3e linee 1070 e 1080 in; 

1070 DATA 216,24,171,164,194,105,28,141 
1060 DATA 161,194,56,173,164,194,233,217 

Questa modifica causa un leggero impulso nel movimento delle 
paddle, ma permette di avere un campo di azione ottimale sullo 
schermo, 


Come si gioca 

Il gioco fa uso di un timer, Lo scopo è quello di far scoppiare tutti i 
palloni, mentre attraversano il deio, cercando di colpirli col clown 
che salta in alto. Tanto maggiore è il numerodi palloni che riuscite a 
far scoppiare entro il tempo limite dì due minuti, tanti più punti 
riceverete, 

Il divertimento non sta solo nel far scoppiare i palloni; dovete 
anche riuscire a riprendere il clown, quando ricade, con la sua base 
controllata dalla paddle. Se non riuscite, egli sparirà. Per farlo riap¬ 
parire dovete premere il pulsante di fuoco. 

Per ciascun pallone che riuscite a far scoppiare avrete 10 punti. 
Ogni volta che non riuscite a riprendere il clown perderete 15 
punti. 

Quando date il RUN r si sentirà suonare una musichetta, mentre 
viene riempito lo schermo. Per questo sono necessari alcuni istanti, 
perciò siate pazienti. Infine il clown appare e cominciano a volare 
dei paltoni nel cielo (sei per volta). Se egli riesce a toccare un 
pallone, questo scomparirà e voi sentirete if rumore di una leggera 
esplosione. Avete così guadagnato 10 punti I palloni continueran¬ 
no a volare finché non li avrete fatti scoppiare tutti e sei. 

Non appena avete terminato il primo livello di palloni si sentirà 
nuovamente fa musica, quindi comparirà dalla sinistra dello scher¬ 
mo un'altra serie di palloni, leggermente più alti. Ci sono In tutto sei 
livelli dii palloni. Se Ei fate scoppiare tutti e 36, il gioco termina, 
anche se avete ancora del tempo a disposizione. A questo punto vi 
verrà chiesto se volete giocare un'altra volta. 
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Come raggiungere un punteggio elevato 

Dopo aver giocato alcune volte noterete delle cose che vi per¬ 
mettono di aumentare il punteggio o di diminuire il tempo neces¬ 
sario a far scoppiare tutti i palloni. 

Se fate saltare il down al momento giusto, potete far scoppiare 
due palloni in una volta sola. Dovete però essere molto precisi 11 
clown tiene le mani allargate e se entrambe toccano un pallone 
nello stesso momento, tutt'e due i palloni scoppieranno, A volte ciò 
funziona, altre volte no. 

Potete ricevere dei punti anche se il clown passa molto vicino ad 
un pallone. Il pallone non scoppierà, ma sentirete il rumore dello 
scoppio e guadagnerete altri dieci punti, 

$e tenete la base del down ferma, la maggior parte delie volte 
egli vi tornerà sopra. Ma non sempre, perciò dovete fare attenZio- 

Ricordate che il down non può far scoppiare i palloni quando 
scende, ma solo quando sale. 


COLPO DI TESTA 


90 REM COLPO DI TESTA PER IL 64 
100 POKE4 91 52 f 0 

110 DIM HA(Ì 2) ,HB(1 2) t HC (1 2) ,LA(1 2) ,LB(12) 

, LC (12) 

1 20 FORQ=l TOl 1 : READHA £ Q) , LMQ ) t HB [Q] , LB{Q) 
i tlC (Q) , LC (Q) ; NEXT 

30 S-54272:FGRE=STOS+28:POKEE,Q:NEXT 
HO POKE542 96 f 15 :POKE5 4 277 f 56 :PGKE5427B, 

21 2 

150 POKE54284,56 :POKE54286,212 
160 POKE542 91 , 56 :POKE54292,212 
170 POKE S+4,17 :POKES+16,17iPOKES+18,17 
130 FORD=lTOl 1 

190 PGKES+1,HA(D}:POKES,LA{D):PGKE5+3 r HB(D 

) 

200 POKES+9,LB [D) :POKES+15,HC(D):POKES+14 , 
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LC (D ) 

210 PORT=lTOlOOsNEXT 

220 IEHC(D} =?THENF0RT=1T01OOiNEXT 

230 NEXT 

240 FORTUITO 450 JNEXT;FORE-STOS+28:POKEE, 
OiNEXT 

2 50 IFPEEK(491 52}=173ANDTH^1THENRETURN 

260 DATA33,135,21, 31 , B, 97,31 , 1 65,21 , 31 , 8 ,2 
25,29,223,22,96,9,104 

270 DATA 28 ,49,22,96,9,247,26,156,21,31,1 
0, ì 43 

2BO DATA28,49, 21 ,31 ,9,247,29,223,22,96, 9,1 
04,31,165,22,96,8,225 

290 DATA33,135,21,31,8,97,25,30,22,96,7,23 
3,33,1 35, 21 , 31 , 8 ,97 
300 G0T0330 
310 3=54272 

32 0 POKES+2 4,15:POKE54276, 65 :POKE54275,1 0 : 

POKE54 2 74,10 :POKES+24,0 :RETURN 
330 POKE53281,7:HI=134:GOSUB930 
340 DATAI,255,0,7,255,1 92,15,239,224, 31 ,1, 
240,63,109,248,63,111,243,63,1,243,63 
350 DATA237,248,63,109,248,31,1,240,31,239 
,240,15,239,224,15,255,224,7,255,192,3 

3 60 DATA2 55, 1 28, 1,255,0,0, 254,0,0,124,0,0, 

56,0,0,16,0,0,56,0 
370 V= 5324 8 

3 80 POR J = 96OTOl 022 :READ WQ:POKE J,WQ;NEXT 
390 PQKEV+21,0 

400 POKEV+41,6:POKEV+42,0 :POKEV+43,1:PGKEV 
+44,2:POKEV+4,70 
410 POKE53264,0 

4 20 POKEV+45,4 :POKEV+4 6,8 

430 FORT = 2042TQ2047 :POKET,15 :HEXT - PQKEV+21 
,255 









440 IFPEEK(V+2)<50AND{PEEK[V+16]AND2)= 0 THE 
MPOKEV+2,254 

4 50 DATAO,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0, 
0,0,0,0,0,0,0,0,0,0,255,255,255,255,25 
5 

4 60 DATA2 55,255,2 55, 255, 2 55,255,255,255, 25 

5.255.255.255.255.255.255.255.255.255 

4 70 DATA2 55,255,2 55, 255,255,2 5 5,2 55,255,25 

5.255 

4SO V-53248 

490 FORI = 832TOSO4:READJ:POKEI,J:NEXT 
500 F0RK=834+64TO892+66:READLiPOKEK,L;NEXT 
:POKE2041,14 :POKEV+40,6 
510 POKE2040,1 3:POKEV+ 39,2:PGKEV,150 :POKEV 
+1,200 

520 IFPEEK(49152}<>1 73THENGOSUB1050 

530 PQKEV+3,191 

540 IFHI<70THENHI = 59 

550 TH-1:GOSUBl30 

560 POKEV+2,PEEK{V):POKEV+21,255 

570 FORG=V+5TO V+15STEP2:POKEG,HI :NEXT 

580 SYS49658 

590 DATA0 

600 DATA0,0,0,0,0, 0,3,2 5 5,2 4 0,3,63,4 8, 3,51 
, 48, 3, 243,2 40,3,63,43,3,204,240,3, 24 3 

610 DATA2 40,3,255, 2 40,0, 1 27,1 28,1 27,243,25 
5, 1 2 7, 2 55, 2 55, 255,2 55, 25 5,128,1 1 5 
62 0 DATAI 28,0, 1 2 7 ,1 28,0, 1 27,1 28,0,251,192, 
1,241,224,3,224,240,7,192,120 
630 IF (PEEK (56 321 ) AND4) O0THEN79G 
640 X2-0:POKE49829,0 

650 FORT-(PEEK[V+3) } TOSOSTEP-4 ;POKEV+3,T 
660 IFPEEK [ V+3 0)>3THENPQKEV+ 21, (PEEK(V+21) 
ANDNOT(PEEK(V+3Q}));SOSC+10:GOSUB310 
670 POECE(V+21),(PEEK(V+21)OR3) 

630 NEXT: GOTO7 0 0 
690 .GQT079Q 
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700 P0KE4 9829 f 0 

710 FORJ=(PEEK(V+3))TQ2 55STEP2 0:PQKEV+ 3,J: 

IFPEEK(49829)=3THENX2-1fGOTO790 
720 PI=INT[RND{0)*2 0)- 105IF(PEEK(53250)+PI 
)< 60AND(FEEK(53264)AND2)=0THENPI=0 
730 IF ( PEEK {V-+2) +PI)<50AND [FEEKfV+l 6) AND2) 
-OORPEEK(V+2)>254THENPI=0 
74 0 IF(PEEK(53 264)AND2)<>0AND(FEEK(53250) + 
PI)>2QTHENPI=0 

750 IF PEEK (53250)+PI<245AND PEEK(53250)+P 
T>]GTHENFOKE53250,PEEK(5325D)+PI 
760 IFPEEK(V+3)<201THEN780 

770 PRINT"{HOME}{ 3 GIU'}{ 7 DES}{BLK)OOPS 
! lf : SC=SC-5 : FORT= 1 TOl 00 ; NEXT : PRINT" 

{HOME}{ 7 DES}[ 3 GIU 1 }{ 5 SPAZI}" 

780 NEXT 

7 90 IF PEEK(V+21)=3THEN:HI=HI~15 ;POKEV+3,1 
90 :GOTO530 

800 IFX2=1ANDPEEK( V+ 3 )>1 SOTHENPOKEV+3,190 
810 P-INT(RND{0)*20}- 7 0iIFPEEK(53250)+P<15 
THENP=0 

820 PRI NT 11 {HOME} { 10 DES}[BLK}PUNTEGGIO";" 
{ 5 SPAZI}"; 

830 PRINT" { HOME}{ 10 DES}{BLK}PUNTEGGIO"; S 
C 

840 IFVAL(TI$) >5900TKENTI$ = "000000« 

850 IFTI $ > = " 0 0 0 2 G G fl THEN870 

860 PRINT"{HOME}(GIÙ 1 }( 2 DES}TEMPO ";RIGH 
T$ ( TI $ r 4 ) ; " [ HOME} { Gl tl 1 } { 2 DES} TEMPO"; 
:G0T063Q 

870 PRINT"{HOME}f 15 DES}( 8 GIU 1 } 

{ 3 DES}FINE":POKEl98,0 
880 PRINT"{HOME}(GIU 1 }{ 2 DES}TEMPO ";RIGH 

T$ ( TI $ f 4 ) ; 11 {HOME} {GIU r } { 2 DES} TEMPO 11 

* 

i 

890 PRINT"{HOME}{ 8 DES}{ 10 GIU 1 }GIOCHI A 
NCORA (S/N)?" 
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90 0 IFFEEK (197) =1 3THENCLR: REE TORE : GOTO! 1 0 

91 0 IFFEEK{197)=39THENSYS2Q48 
920 GOTOB 90 

930 FRI NT" {CLR} n i t FORBO=1 0 2 4TO1 984STEP4G :P 
OKEBO,224 t POKEBQ+ 39 r 224 
940 POKEBQ+54272,2 :PQKEBO+5431 1 ,2 
950 PGKEBO+1,224;POKEBO+38,224 
960 POKEBO+1+54272,4:POKEBO+5431 0,4 
970 POKEBO+2,224 :POKEBO+ 3 7,224 
9BQ POKEBO+2+54272,15:PQKEBQ+54309,15 
990 NEXT 

1 000 FORFL*!864TO202 3 iPOKEFL,224 :POKEFL+54 
272,B:NEXT 
1010 TI$ 235952 " 

1 02 0 FORTE = 102STO1 062:POKET£, 224 :POKETE+54 
272,3:NEXT 
1 030 POKE5 32 80 ,1 
1040 RETURN 

1 050 POKEV+21,0 : FORVI-4 91 52T04 96 7 3:READJ2: 
POKEVl,J2:NEXT:RETURN 


1 060 

DATA 173, 
194 

25, 

21 2, 73, 255, 

1 41 , 

1 64, 

1070 

DATA 216, 

1 41 

24, 

173, 164, 194, 

105, 

40, 

1 080 

DATA 161, 

, 21 5 

1 94, 

56, 173, 164, 

1 94, 

233 

1 090 

DATA 141, 

1 , 21 6 

1 62, 

194, 173, 164 

, 194 

, 20 

1100 

DATA 176, 

, 194 

17, 

173, 161, 194, 

1 41 , 

1 63 

ìlio 

DATA 173, 

16, 

208, 41, 254, 

1 41 , 

16, 


2 OS 

1120 DATA 76, 65, 192, 1 73, 16, 208, 9, 1 
1130 DATA 141, 16, 208, 173, 162, 194, 141 


, 163 

1140 DATA 194, 173, 163, 194, 141, 0, 208, 
173 


111 







Giochi di abilità 




11 50 

DATA 

1 41 

30, 208, 

1 41 , 

1 60, 

7 94, 

240, 

3, 

11 60 

DATA 

240 

165, 194 

, 173 

, 160 

, 194 

, 41 , 

1 r 

1 1 70 

DATA 

23, 169, 

ì 90, 

173, 

163, 

194, 

1 41 

1 1 SO 

DATA 

208, 173 

, 16, 

208, 

41 , 

1 , 141 , 6 

11 90 

DATA 

8 

DATA 

17 

202 , 10, 

13, 

6 , 202, 141, 16 

, 20 

1 200 

173, 16, 

202 , 

56, 

233, 

21 0, 

141 , 

1 21 0 

DATA 

141 

202 , 173 

, 16, 

202 , 

24, 

105, 

45, 

1 220 

DATA 

18, 202, 

1 73, 

16, 

202 , 

201 , 

210 , 


1 76 


1 230 DATA 1 7, 1 73, 1 6, 208, 41 , 251 , 1 41 , 
16 


1 240 

DATA 

76 

208, 

1 73, 

18, 

202 , 

141, 

4, 208, 

1250 

DATA 

1 68, 

1 92, 

173, 

16, 

208, 

9, 4, 14 


1 


1 260 

DATA 

08 

16, 

208, 173, 

17, 

202 , 

141, 4, 2 

1 270 

DATA 

20 

1 73, 

19, 202, 

56, 

233, 

210, 141, 

1280 

DATA 

141 

202 , 

173, 19, 

20 2 , 

24, 

105, 45, 

1 290 

DATA 

176 

21 , 

202, 173, 

19, 

202 , 

201 , 210, 

1 300 

DATA 

16 

17, 

173, 16, 

208, 

41 , 

247, 141 , 

1 31 0 

DATA 

76 

208, 

173, 21, 

202 , 

141 

, 6, 208, 

1 320 

DATA 

1 

DATA 

224 , 

192, 173 

, 16, 

208 

, 9, 8, 14 

1 330 

16, 

203, 173, 

20 , 

202 , 

141, 6, 2 


08 
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1 340 

data 

173, 

22 , 

202 , 

56, 

233 , 

210 

, 141, 


23 








1 350 

DATA 

1 41 

202 , 

173, 

22 , 

202 

, 24, 

105 

, 45, 

1 360 

DATA 

24, 

202 , 

173, 

22 , 

202 , 

201 

, 210, 


176 








1 370 

DATA 

1 6 

17, 

1 73, 

U, 

208, 

41 , 

239, 

141 , 

1 380 

DATA 

76 

208, 

173, 

24, 

202 

, 141 

, 

208, 

1 390 

DATA 

1 

DATA 

24, 

193, 

173, 

16, 

208, 

9, 

16, 14 

1 400 

16, 

208, 

1 73, 

23, 

202 , 

1 41 

, 8, 2 

08 

1 41 0 

data 

173, 

25, 

202 , 

56, 

233, 

21 0 

, 141, 


26 








1 420 

data 

141 

2 02 , 

173, 

25, 

202 

, 24, 

1 05 

, 45, 

1 430 

DATA 

27, 

202 , 

1 73, 

25, 

202 , 

201 

, 210, 


176 


1440 DATA 17, 173, 16, 208, 41, 223, 141, 
1 6 


1 4 50 

DATA 

208, 

173, 

27, 

202 , 

1 41 

, io. 

208, 

1460 

76 

DATA 

1 

DATA 

80 , 

193, 

173, 

16, 

208, 

9, 32, 14 

1 470 

16, 

208, 

173, 

26, 

202 , 

1 41 , 

io, 

1 480 

208 

DATA 

1 73, 

28, 

202 , 

56, 

233 , 

21 0, 

1 41 , 

1 490 

29 

DATA 

2 02, 

1 73, 

28, 

202 , 

24, 

105, 

45, 

1 500 

ì 41 
DATA 

30, 

202 , 

1 73, 

28, 

202 , 

201 , 

21 0, 

1 51 0 

1 76 
DATA 

17, 

173, 

16, 

208, 

41 , 

191 , 

141 , 

1 520 

1 6 

DATA 

20 8, 

173, 

30, 

202 , 

1 41 

, 12, 

208, 
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76. 


1 530 

DATA 

41 

1 36, 

193, 

1 73 

, 16 

, 208 

, 5, 

64, 

1 54 0 

DATA 

16, 

208, 

173, 

29, 

202 , 

1 41 

, 12, 


208 








1 550 

DATA 

173, 

31 , 

202 , 

56, 

233, 

210 

, U1 


32 








1 560 

DATA 

141 

202 , 

1 73, 

31 , 

202 

, 24, 

1 05 

, 45, 

1 570 

DATA 

33, 

202 , 

173, 

31 , 

202 , 

201 

, 210 


1 76 








1 580 

DATA 

16 

1 7, 

173, 

16, 

20 8, 

41 , 

127, 

141 , 

1 590 

DATA 

208, 

173, 

33, 

202 

, 141 

, 14 

, 203 


76 








1 600 

DATA 

141 

1 92, 

1 93, 

1 73 

r 16 

, 208 

, 9, 

128, 

1 61 0 

DATA 

208 

16, 

208 , 

173, 

32, 

202 , 

141 

, 14, 

1 620 

DATA 

173 

238, 

1 6, 

202 , 

238 

, 16, 

202 

, 24, 

1 630 

DATA 

173 

U, 

202 , 

1 05, 

43, 

141 , 

19, 

202 , 

1 640 

DATA 

173 

15, 

202 , 

1 05, 

43, 

141 , 

22 , 

202 , 

1650 

DATA 

1 73 

22 , 

202 , 

105, 

43, 

1 41 , 

25, 

2 02, 

1 660 

DATA 

1 73 

25, 

202 , 

105, 

43, 

141 , 

28, 

202 , 

1 670 

DATA 

1 73 

28, 

202 , 

105, 

43, 

141 , 

31 , 

202 , 

1 6 80 

DATA 

76 

30, 

208, 

2 40, 

3 r 

141 , 

1 60, 

1 94, 

16 90 

DATA 

49, 

234, 

1 20, 

1 69 

, 0, 

1 41 , 

20 , 

1 700 

DATA 

1 69, 

ì 92, 

1 41 

, 21 

f 3 r 

88 , 

96, 0 

1710 

DATA 

255, 

255, 

0 , 

0, 255, 255, 

0 , 0 


60000 PRINT"{HOME!"PEEK n57):GOT06QOOO 
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4.2 

Cascata 
di diamanti 

Matt GiW©r ■" Versione perC64 di Eric Brandom 


Afferrate i diamanti, se ci riuscite, Un gioco d'azione veloce, ma 
facile da giocare, 

«Cascata di diamanti» è un gioco che richiede buone capacità di 
giudizio e riflessi veloci. Per ottenere un'azione veloce è scritto 
quasi interamente in linguaggio macchina. It BASIC è usato solo per 
le istruzioni, inizializzare lo schermo, selezionare il livello di diffi¬ 
coltà e creare la cascata di diamanti, 

|] gioco all'inizio vi mostra sei file di oggetti in cima allo schermo 
ed una pila di sei vassoi sul fondo. Quando i primi cominciano a 
cadere usate i tasti e «;» per spostare i vassoi e prendere gli 
oggetti. Per rendere il gioco più interessante, quando cade t'ultimo 
oggetto di una fila scompare un vassoio. Perciò ne avete a dispo¬ 
sinone solo uno per prendere gli oggetti che cadono dall'ultima 
fila. Quando tutti sono caduti, ricominciate da capo con altre sei file 
di oggetti e altri set vassoi. U gioco comunque termina, anche alla 
prima tornata, quando cinque oggetti hanno colpito il suolo. 

Poiché le istruzioni DATA comprendono il programma in lin¬ 
guaggio macchina, fate attenzione a digitarle correttamente. Salva¬ 
te una copia del programma prima di dare il RUN, perché un errore 
di battitura potrebbe far bloccare il computer e vi costringerebbe a 
spegnerlo per porvi riparo. Se «Cascata di diamanti» non gira come 
dovrebbe, la causa più probabile è un numero sbagliato nelle 
istruzioni DATA, perciò controllatele accuratamente. 

CASCATA DI DIAMANTI 

5 POKB 53280, 1 2;PGKE53281 ,0 
7 IF PBEK(4 9152}<>12OTHENGOSUB49000 
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Giochi di abilità 


9 SYS 49745 

10 PRINT" {CLR}{WHT} t, TAB (10) "CASCATA DI DIA 
MANTI" 

20 PRINT"{ 5 GlU 1 }|YEL }{ 5 SPAZI}PRENDI I 
DIAMANTI PRIMA CHE" 

30 PRINT 1 *{GIU *}{ 5 SPAZI}TOCCHINO IL SUOLO 
. HAI CINQUE" 

40 PRINT"{GIU r ){ 5 SPAZl}VASSOI A DISPOSI* 
IONE," 

4 5 PRINT" { 2 GIU t HWHTH 5 SPAZI }L - PER M 
DOVERE A SINISTRA" 

4 6 PRINT" { 5 SPAZI) ; - PER MUOVERE A DESTE* 
A{YEL}" 

50 PRINT"{ 5 GIU*)[<6>]{ 6 SPAZ1}{RVS}PREM 

I UN TASTO PER COMINCIARE" 

60 GETAS: IFA$ -""THEN60 

65 GOSUB 1000 

70 PRINT"{CLR}{WHT}PUNTI 00000{ 7 SPAZI}VA 
SSOls { 4 Q} " 

71 SPEED = 53241 

72 PADDLES=1 2*4096+4095 

73 FLAGRI 2*4096+4094 : POKE FLAGRO 

74 WIDTH = 1 2*4096+15*2.56+1 5*16+11 

75 POKE PADDLES,6 : POKE WIDTH,W : POKE SP 
EED,1Q-S 

7 8 ROW{6)-81 :ROW(5}*01 :ROW{4} * 2 07 :ROW(3}=2 
0 7 :RQW(2) *90 :ROW(1}*90 
80 PRINT" {YEL}{RV$} " ? SFORI=1T038 ìFRINT"Z 
"; :NEXT:PRINT"{OFF} 

B5 PRINT" {YELHRVS}" ; SFORI = 1'T03 8 SPRINT"^ 
"j ENBXTi PRINT" {OFF} 

90 PRINT" {CYN}{RVS}";:F0RI=lT033SPRINT"? 

";sNEXTSPRINT"{OFF} " ; 

95 PRINT" {CYN}{RVS}"?! FORI =1 T038 ì £RINT*'P 

II f : NEXT : PRINT" {OFF} Tl ; 

100 PRINT" {OFE}[<7>]SFORI-1T038SPRINT" 
W";:NEXTSPRINT" 
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102 PRINT" {OFF} [<7>] "; :FORI=lTG33iPRlNT" 
W" ; T NEXT ! PRINT 11 *' ; 

1 OS PRINT"{WHT} rt ; 

109 REM 40 SPAZI NELLA PROSSIMA LINEA 
11G FORI = 1 TOl 7 : PRINT' 1 £ 40 SPAZI}"; : NEXT 
120 PRINT"{HOME}"; 

130 FOR 1-1984 TO 2023 : POKE I,248:POKE I 
+54272,10:NEXT 

140 IF PEEK (739)<>12*16THENSYS 1 2*4096 
150 FOR RQW = 6 TO 1STEP-Ì:FGR CHAR-1 TO 3 
8 

155 FOR K=1 TO 60 0-CHAR*1 0+{6-ROW)*20-50 *( 
9-PEEK[SPEED)):NEXT 
157 IF PEEK(FLAG) THEN 2000 
160 P=RND(1)*38+1 

170 IF PEEK(1024+ROW*4G+P)=32THEN160 
130 POKE 1024+ROW*4O+P,ROW(ROW} 

190 NEXTCHAR 

191 SYS 49745 

192 FQRQ-1T02:POKE542 96,05 :POKE54277,5iPO 
KE54278, 218 

ì 93 POKE 542 73 f 150 :POKE 54 2 72, 1 39 :POKE5427 
6,17 

1 94 FORT*!TO50:NEXT:POKE54276, 1 6:FORT*1TOl 
0 :NEXT 
195 NEXTQ 

197 IF ROW >1 THENSYS 49691 

200 NEXTROW 

201 FOR K=1 TO 30 0 :NEXTK 

205 IF PEEK(SPEED)>2 THEN POKE SPEED,PEEK{ 
SPEED)- 1 ;POKE PADDLE,6 
210 PRINT"{HOME}{GIU' 

220 GOTO 80 
999 END 

1 000 PRINT" {CLR){ 7 SPA21} LIVELLO DI DIFFI 
COLTA 1 { 3 SPAZI){ 5 GIU 1 }" 

1010 INPUT"{WHT}VELOCITA 1 (1-9){YEL} 

{ 3 DBS } 5 { 3 SIN} 11 f S 
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4 


1015 IF S>9 OR S<1 THEN 1010 
1 020 INPUT"{ 3 GIU 1 ]{WHT}LARGHE^2A DEI VA$ 
SOI {1 - 9 ) {YEL} { 3 DES}4{ 3 $IN}";W 
1030 IF W>9 OR W<1 THEN 1020 
1040 RETURN 

2000 PRINT"{HOME}{ 10 GIU 1 }! 2 SPASI){YEL} 
FIRÉ( 2 SPAZI}- >SPACE< PER CONTIN 
DARE 1 ' 

2010 POKE 198,0 

2020 GETA$ :IFA$O IT "THEN2020 

2030 RUN 65 

49000 PRINT'MWHT}{CLRlSTO CARICANDO IL LIN 
GUAGGIO MACCHINA* . . 11 
49005 1=49152 

49010 READ A:IF A=256 THEN RETURN 
49020 PGKE I,A:1 = 1+1 : GOTO 4901 0 
491 52 DATA 120,169,192,141/21,3,169 
49160 DATA 29,141,20,3,88,169,18 
49168 DATA 141,253,207,169,0,141,250 
49176 DATA 207,141,247,207,141,248,207 
49184 DATA 96,173,255,207,141/252,207 
49192 DATA 172,253,207,169,32,153,151 
49200 DATA 7,200,169,160,174,251,207 
49208 DATA 153,151,7,200,202,208,249 
4921 6 DATA 1 6 9,32,1 53/151 /7,206,252 
49224 DATA 207,208,3,76,3,193,172 
49232 DATA 253,207,169,32,153,71,7 
49240 DATA 200,169,160,174,251,207,153 
49248 DATA 71,7,200,202,208,249,169 
49256 DATA 32,153,71,7,200,206,252 
49264 DATA 207,208,3,76,3,193,172 
49272 DATA 253,207,169,32,153,247,6 
49280 DATA 200,169,160,174,251,207,153 
49288 DATA 247,6,200,202,203,249,169 
49296 DATA 32,153,247,6,200,206,252 
49304 DATA 207,240/123,172,253,207,169 
49312 DATA 32,153,167,6,200,169,160 
49320 DATA 174,251,207,153,167,6,200 
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49328 

DATA 

49336 

DATA 

49344 

DATA 

49352 

DATA 

49360 

DATA 

49368 

DATA 

49376 

DATA 

49384 

DATA 

49392 

DATA 

49400 

DATA 

49408 

DATA 

4941 6 

DATA 

49424 

data 

49432 

DATA 

49440 

DATA 

4 9448 

DATA 

49456 

DATA 

49464 

DATA 

49472 

DATA 

49480 

DATA 

49488 

DATA 

49496 

DATA 

49504 

DATA 

4951 2 

DATA 

4 9520 

DATA 

49528 

DATA 

49536 

DATA 

49544 

DATA 

49552 

DATA 

4 9560 

DATA 

49568 

DATA 

49 576 

DATA 

4 9534 

DATA 

49592 

DATA 

49600 

DATA 

49608 

DATA 

4961 6 

data 


202,208,249,169,32,153,167 
6,200,206,252,207,240,91 
1 72,253,207,169, 32,1 53,87 

6.200.169.160.174.251.207 
153,87,6,200,202,203,249 

169.32.153.87.6.200.206 

252.207.240.59.172.253.207 
1 69,32,1 53,7,6,200,1 69 

160.174.251.207.153.7.6 

200.202.208.249.169.32.153 

7.6.200.206.252.207.240 

27.172.253.207.169.32.153 
183,5 , 200 , 169,160,174,251 
207,153,183,5,200,202,208 
249,169,32,153,183,5,200 

165,197,201,42,208,13,173 

253.207.201.1.240.24.206 
253,207,76,40,193,201,50 
208,14,173,253,207,24,109 
251,207,201,39,240,3,238 
253,207,238,250,207,173,250 

207.205.249.207.240.3.76 
49,234,169,0,141,250,207 
169,112,133,251,169,7,133 
252,160,0,185,152,7,41 

127.201.32.208.74.200.192 
39,208,242,160,0,177,251 

201.81.240.37.201.207.240 

33.201.90.240.29.200.192 
40,208,237,56,165,251,233 
40,133,251,176,2,198,252 

1 66,251,208,2 20, 16 6,252,22 4 
4,208,214,76,49,234,170 
152,24,105,40,168,138,145 
251,152,56,233,40,1 68, 1 69 

32.145.251.32.251.193.76 

99.193.169.32.153.152.7 
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49624 DATA 
49632 DATA 
49640 DATA 
49643 DATA 
49656 DATA 
49664 DATA 
49672 DATA 
49600 DATA 
496 80 DATA 
49696 DATA 
49704 DATA 
49712 DATA 
49720 DATA 
49720 DATA 
49736 DATA 
49744 DATA 
49752 DATA 
49760 DATA 
49768 DATA 
49776 DATA 
49784 DATA 
49792 DATA 
49800 DATA 
49803 DATA 
49816 DATA 
49824 DATA 
49832 DATA 
49840 DATA 


3 2,81 ,194,169,15,141,24 
212,169,17,141,5,212,169 
213,141,6,212,169,2,141 
3,212,169,100,141,2,212 
169,5,141,1,212,169,135 
1 41 ,0,21 2,169,65,141,4 
212,160,0,162,0,142,32 
208,232,208,250,200,208,247 
169,12,141,32,208,169,64 
1 41 ,4,21 2,160,39,185,0 
4,201,81,240,11,136,208 
246,169,1,141,254,207,76 
49,234,169,32,153,0,4 
76,49,234,152,72,160,10 
1 85, 0,4,201,57,208,9 
169,48,153,0,4,136,76 
255,193,185,0,4,24,105 
1,153,0,4,104,168,96 
174,255,207,202,142,255,207 
232,1 69,1 52,133,251,169,7 
133,252,56,165,251,233,80 
133,251,]76,2,198,252,202 
208,242,160,0,177,251,201 
160,240,4,200,76,59,194 
174,251,207,169,32,145,251 
200,202,208,250,96,160,0 
1 52,153,0,21 2,200,1 92 r 9 
208,248,96,256 
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4.3 

Rimbalzo 

Frank L + Broadnax 


Non lasciate che la palla vi sfugga. Quanto più a lungo riuscirete a 
respingerla, tanto più alto sarà il punteggio raggiunto. 

«Rimbalzo» è un gioco di movimento e traiettoria simile a quelli 
dei primi video-giochi. Utilizzando solo il set di caratteri dei Com¬ 
modore 64 viene mostrata una navicella spaziale, la palla che rim¬ 
balza sulla navicella ed i muri di energia che dovete distruggere. 

Si gioca col joystick nella porta 2. Incomincia co! titolo ed una 
breve introduzione musicale. Quindi vi viene chiesto se volete 
leggere le istruzioni prima di giocare. Se è la prima volta che gio¬ 
cate, premete ed appariranno le istruzioni. Se le conoscete già, 
premete «N» e passerete direttamente al gioco. 

Sullo schermo in alto vengono mostrati il punteggio corrente ed il 
punteggio più alto raggiunto; al centro la navicella spaziale e in 
fondo i muri di energia colorati. Il numero di navicelle rimaste è 
indicato da piccoli cerchietti sull'angolo in alto a destra delio scher¬ 
mo. 

Non appena completato lo schermo comincia il gioco. La navi¬ 
cella fa fuoco ed appare una palla che si può muovere verso destra 
in alto, verso sinistra in alto, verso destra in basso o verso sinistra in 
basso. Fate attenzione quando la palla si muove verso l'alto, verso 
la vostra navicella, perché non avrete molto tempo per intercettar¬ 
la. 

Se intercettate la palla, questa rimbalza verso i muri di energia o 
verso un lato dello schermo. Può rimbalzare rn entrambe le dire- 
zioni, ma guadagnerete dei punti solo se colpisce il muro ed elimina 
dei mattoni. Per ogni spazio creato guadagnate dieci punti. 

Anche se non ha importanza quale parte della navicella tocca la 
palla, conviene fare in modo che sia il centro. A volte pensate di 
essere nella posizione giusta, ma la palla manca anche un lato della 
navicella e vi passa di fianco. A differenza degli altri giochi di tra¬ 
iettoria, la palla non rimbalza secondo angoli diversi in funzione del 
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punto in cui colpisce la navicella, ma torna semplicemente indie¬ 
tro. 

La navicella si muove molto lentamente, perciò conviene seguire 
la palla, specialmente quando resta intrappolata fra i muri ed eli¬ 
mina più mattoni. Dovete essere in grado di prevedere quando la 
palla esce dal muro e vi viene incontro, È importante anticiparla^ se 
la navicella non è in posizione, sarà difficile spostarla in tempo per 
intercettare la palla. Poiché la navicella si muove di tre colonne per 
volta, i suoi spostamenti possono sembrare un po' bruschi e pos¬ 
sono far pensare che si stia muovendo più velocemente di quanto 
in realtà non stia facendo, 

È anche difficile a volte seguire la palla, perché viene cancellata e 
ridisegnata ogni volta che si muove, e sembra lampeggiare. Inoltre, 
quando elimina dei mattoni dai muri di energia sembra sparire per 
un momento. Se elimina più mattoni velocemente, il modo miglio¬ 
re per seguirla consiste nel fare attenzione ai mattoni che vengono 
eliminati. Potete cosi muovervi nella direzione da cui tornerà verso 
la vostra navicella. 

Se non riuscite ad intercettare la palla, ed essa vi passa di fianco, 

la navicella verrà eliminata, ma ne riapparirà un'altra al centro dello 
schermo, sparerà un'altra palla e la partita avrà di nuovo inizio. 
Avete a disposizione cinque navicelle durante il gioco, ed il nume¬ 
ro di quelle che vi restano viene indicato sullo schermo. 

Se riuscite ad eliminare i cinque muri di energia, non avete ter¬ 
minato di giocare. Altri cinque muri verranno disegnati dopo che 
avete raggiunto 4800 punti, il totale dei punti che avrete raggiunto 
dopo aver eliminato tutti i mattoni. Ogni volta che eliminate cinque 
muri, altri cinque appariranno al loro posto. Comunque non vi 
verranno assegnate delle altre navicelle spaziali e il gioco termina 
quando le navicelle sono esaurite. 

Quando il gioco finisce appare un messaggio che vi chiede se 
volete giocare di nuovo. Se premete «S», ricominciate da capo, 
dopo che avrete indicato se volete o no leggere di nuovo le istru¬ 
zioni; il punteggio verrà riportato a 0, ma il punteggio piu alto 
raggiunto in precedenza resterà invariato, finché non spegnete il 
computer^ e sarà mostrato ogni volta che mancate una palla. Se 
volete smettere di giocare, premete semplicemente *N» in risposta 
al messaggio di fine gioco. 
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Variazioni 

È facile creare diverse variazioni in questo gioco, modificando 
semplicemente alcune linee. 

Una modifica interessante può essere ottenuta cambiando la 
linea 400. ÀI posto di DY--DY, scrivete DX=-DX, Ciò farà sì che la 
palla proceda a zig-zag entro il muro di energia e ritorni verso la 
navicella solo dopo che ha eliminato tutti gli ostacoli sulla sua 
strada. 

Si può apportare un'altra modifica alle linee 460 e 470. Scrivete 
GOTO 310 al postodi GOTO 320. Ogni volta che mancate la palla i 
muri di energia verranno ridisegnati, facendovi cosi ricominciare da 
capo. Il punteggio però non verrà azzerato. 

Anche modificando il valore di DX alla linea 335 si può ottenere 
un'altra variazione nel gioco. Con DX-2 si può variare l'angolo di 
rimbalzo della palla. Ciò può rendere difficile intercettarla special- 
mente all'inìzio del gioco, quando la palla si muove verso I alto e 
verso un lato. Dovete essere svelti nell'intercettarla prima che passi 
oltre. 

Note del programmatore 

Può essere utile sottolineare alcune delle subroutine più impor¬ 
tanti del programma, in modo che possiate vedere come funzio¬ 
na. 

Linee Funzione 

5-170 Visualizza il titolo iniziale e richiama la subroutine 

che suona la musica, 

180-220 Chiede se sì desiderano le istruzioni e richiama la 
subroutine 35000, che contiene il resto delle istru¬ 
zioni. 

230-335 Inizralizza le variabili e lo schermo. 

330 Comincia il loop per il movimento della palla. È il 

loop principale del programma. 

335 La palla comincia a muoversi. 

336-337 La direzione della palla cambia ogni volta che essa 

appare, 

400 Controlla se la palla ha toccato il muro. 

420-450 Controlla se la palla ha toccato la navicella. 
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10100 Crea il raggio da cui parte la palla, utilizzando solo 

caratteri grafici. 

12000*12130 Effettua il POKE dei caratteri grafici e del colore, 
per creare i muri di energia: a questo scopo è usato 
Io spazio in reverse, il cui codice di schermo è 
160. 

15000-15160 Crea la navicella con i caratteri grafici aventi i codi¬ 
ci di schermo 73,81 e 03 e due caratteri col valore 
67. 

20000-20080 Muove la navicella di tre colonne per volta, can¬ 
cellando la posizione precedente ed eseguendo il 
POKE nella nuova posizione, il cui valore viene 
letto dal joystick {PEEK 56320). Questa subroutine 
mantiene anche la navicella sullo schermo. 

25000-25020 La subroutine che gestisce il punteggio comincia 
alla linea 400, poi salta a questa parte del program¬ 
ma. il punteggio viene visualizzato sullo schermo, 
aggiungendo 10 punti per ogni mattone eliminato. 
Le linee dalla 25011 alla 25019 ridisegnano i mat¬ 
toni, dopo aver cancellato lo schermo, in funzione 
del punteggio raggiunto. 

27000-27040 Subroutine del suono che crea l'effetto della palla 
che colpisce ed elimina i mattoni, I valori vengono 
scritti nelle locazioni di memoria del suono con 
delle istruzioni POKE per t'attack (A), la forma 
d'onda (W), il byte alto della frequenza (HF), il 
byte basso della frequenza (LO). Le variabili sono 
state ini zi a lizzate all'inizio del programma. 

30000-30070 Cestisce te palle mancate e il punteggio più alto 
raggiunto. Viene anche controllato se ci sono an¬ 
cora delle navicelle a disposizione. La linea 30030 
incrementa Pt di 1 per ogni palla mancata. Se PI 
supera 1098, il gioco termina; altrimenti la linea 
30070 effettua ri PQKE del valore 102 nella loca¬ 
zione PI e cancella una navicella, 

35000-35100 Resto dello schermo ed istruzioni del gioco. 

40000-40240 1 nizializza le variabili e legge le istruzioni DATA per 

la musica iniziale. 

45000-45030 Chiede al giocatore se vuole fare un'altra partita. 
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RIMBALZO 

S PRINT"[CLR}" 

10 PRINT 
20 FRINT 
30 FRINT 
40 FRINÌ 

50 FRXNTSPC(S) ************************** 

60 PRINTSPC(S )"*{ 21 SPAZI} *" 

70 FRINTSPC(S)"*{ 7 SPAZI}RIMBALZO 
{ 6 SPAZI}*" 

SO FRXNTSPC( 3} " * { 21 SPAZI}*” 

160 PRINTSPC(3}»■***********************" 
170 GOSUB40010 

180 PRINTTAB(128)"VUOI LE ISTRUZIONI ?" 

190 PRINTTAB (96) "S / N*' 

200 GETA$ \ IFA$ s " ti THEN200 

210 IFA$ - ti 3”THENPRTNT" {CLR} ";GOSUB3501 0 

22 0 IFA$<>"S t, THEN2 30 

230 FRI NT"{CLR}”:POKE53280,1 1:POKE53281 ,0 
240 Pi=1 094 ;SC=0 :CO = 54272 
250 FGRR= 5 4 2 72T054 2 96 : POKER,0 :NEXT 
2 60 L=54296:W=54276 : A-54 2 77 :HF-=54 2 73 :LF=54 
272 

270 PQKELj. 1 5 

302 FORUl^l 024TO1 O63:P0KEU1, 160 ìPOKEUl+CO f 
11iNEXT 

304 FORU2=1064TO1103:POKEU2,102:POKEU2+CO, 
11 :NEXT 

306 FORU3-1 095TO1 098 :POKEU3,87 :P0KEU3+CO,1 
tNEXT 

307 PRINTTAB(2)” } SU}[WHT}PUNTEGGIO*" 

308 PRXNTSPC[19 ) w { 3 SU}(WHT}RECORD=" 

310 GOSUBl2010 

320 GOSUBl5010 

32S C=1161sV-1162 :B = 1163:N=1164:M=116 5 

330 REM PALLINA 

335 X-l9:Y-9:DX=1:DY-1 


125 





33 6 IFRND ( 1 ) < . 5THENDY=-1 
337 IFRND( 1 ) < «5THENDX=-1 

340 POKEl 02 4+X+4Q *Y,81 :POKE55296+X+4 0*Y,1 

370 POKEl024+X+40*Y,32 

380 X-X+DX:iFX=OORX-39THENDX=-DX 

390 Y-Y+DY:IFY=24THENDY=^DY 

395 BL= 1 024+X+40 * Y: C1 =1 60 

400 IFPEEK(BL)=Cl THENDY=-DY: SOSC+10:GOSUB 
2501 0 :GOSUB2701 0 

420 IFPEEK(BL)= 6 7THENDY=-DY:GOTO390 
430 IFPEEK(BL)*B1THENDY=-DY: GOTO 3 90 
440 IFPEEK(BL)= 8 5THENDY=-DY: GOTO390 
4 50 IFPEEK[BL)=73THENDY=-DY: GOTO390 
460 IFPEEK(BL)02THENGOSUB30010:GOTO320 
470 IFPEEK [BL) -B7THENGOSUB3001 0 :GOT0320 
480 GOSUB20020 :GOT0340 
10000 REM RITARDO LASER 
10100 FORTUITO!00:NEXT:RETURN 
12000 REM DISEGNA I MATTONCINI 
1 2010 FQRQl=1 504TO1 583:PQKEQ1,160;PGKEQl+C 
0,7:NEXT 

12030 FORQ2-1504TO1663:PGKEQ2,160:POKEQ2+C 
O 6 rNEXT 

12050 FORQ3=l664TO!743:POKEQ3,160:PGKEQ3+C 
O,8;NEXT 

12070 FQRQ4=1744T01823:POKEQ4,160:POKEQ4+C 
O,5 :NEXT 

12090 FORQ5 = l 824TO! 903:PQKEQ5, 1 60:POKEQ5+C 
O,2:NEXT 

12110 FORQ6-1 904TO1 983:POKEQ6,l 60;PQKEQ6+C 
0 # 4:NEXT 
12130 RETURN 
15000 REM LASER & SPARO 
ì 5010 FORZ = l144T01183:POKEE,32:NEXT 
1 5020 POKElì 61,85:POKEl 1 62,67:POKEl163,81 : 

POKEl164,67:POKEl165,73 
15030 FORZI=5541 6TOS5455 :PQKEZ1,1:NEXT 
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1 5040 POKEl 2 0 3 , 6 6:POKE554 75,2 :GOSUBl0100 
1 50 50 POKEl 2 4 3,6 6 :POKE5551 5, 2;GOSUBl0100 
ì 5060 POKEl 2 83,66:PÓKE55555,2 ;GOSUBl0100 
1 5070 POKEl 323, 66 :POKE55595,2 :GOSUBl0100 
1 5080 POKEl 363,66:POKE55G35 ,2 ;GOSUBl0100 
1 5090 POKEl 403 , 81 :PGKE55675,1 :GOSUBl0100 

1 5100 POKEl 2 03,32 :GOSUBl0100 
15110 POKEl243,32;GOSUBl0100 
15120 POKEl 283,32 : GOSUBl 0100 
15130 POKEl 32 3, 32 ; GOSUBl 0100 
15140 POKEl363,32:GOSUBl0100 
15150 POKEl403,32:GOSUBl0100 
15160 RETURN 

20000 REM MOVIMENTO NAVETTA LASER 
20020 IFPEEK(56320)=119THENPOKEC,32;POKEV, 
32;POKEB,32:M=M+3:N=N+3:B=B + 3:V=V+3 ; 
C=C+3 

20030 IFPEEK(1183)=73THENM=Ì183:N=1182;B-1 
181 ;V=1180;C“1179 

2 004 0 PQKEW,73:POKEN, 67 :POKEB,81 :POKEV,67: 

POKEC,85 

20050 IFPEEK(56320)-1 23THENPOKEM,32 :POKEN, 
32 :POKEB,32:C=C-3 ;V=V-3:B=B-3:N=N-3: 
M=M* 3 

20060 IFPEEK(1144)=67THENC=1143 ;V=1144 ;0-1 
145 :W=1146 :M-114 ? 

2 0070 POKEC,85:PGKEV,67 :POKEB,81 :POKEN,67; 

POKEM,73 
20080 RETURN 

25000 REM STAMPA PUNTEGGIO 
2 501 0 PRIRTTABO 2) " {SU} (WHT^'SC 

25011 IFSC = 4 SOOTHENGOSUBl2010 

25012 IFSC=9590THENGOSUB12010 

25013 IFSC^l4380THENGOSUB12010 

25014 IFSC=19170THEHGOSUB12010 
2501 5 IFSC=23960THENGOSUB1 201 0 
25016 IFSC=2875QTBENGOSUBl2010 
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2 5017 IFSC=33S40THENGOSUBl2010 
2501 8 IFSC=38330THENGOSUB1 201 0 

2 50 1 9 IFSC=431 20THENGOSUB1 201 0 
25020 RETURN 

27000 REM SUONO 

2701 0 POKEA, 9 : PGftEW ,17: POKEHF, 67 : POKELF, 1 5 

27030 POKEW,0 
27040 RETURN 

30000 REM PALLINA PERSA & RECORD 
3001 0 IFSOHITHENHI = SC 

30020 PRINTSPC (26) " { 3 SUHWHT} ,, HI 
30030 PI-Pi+1ilFPl>1098THENPRINTTAB{254)" 
{WHT}{ 3 SPASI }FINE 1, :GOT045000 

3 0 070 'POKEPI,102:POKER1+CO,11 : RETURN 
35000 REM ISTRUZIONI 

35010 PRINTTAB[38}"BENVENUTO A RIMBALZO" 
35020 PRINTTAB(40)"L'OGGETTO DEL GIOCO E * 
DI RIMANDARE" 

35030 PRINTTAB[40)"LA PALLINA VERSO I MATT 
ONCINI" 

35040 PRINTTAB[40)"CON LA VOSTRA NAVETTA S 
PASIALE*" 

35050 PRINTTAB[40}"PER MUOVERE LA NAVETTA 
USATE IL JOYSTICK" 

35060 PRINT"INSERITO NELLA PORTA # 2*" 
35070 PRINTTAB[126}"PREMERE LO SPAZIO PER 
COMINCIARE." 

35080 GETP$:IFP$=""THEN35Q80 

3 5090 IFP$OCHRS (32} THEN3 50B0 
35100 IFP$=CHR$[32}THENKETURN 
40000 REM MUSICA ALL"INIZIO 
40010 SQ=54272 

4 0020 FORL= SOTGSO-H2 4 : POKEL, 0 
40030 POKESO+5,9 :PGKESO+6,40 
40040 POKESO+24,15 

40050 READHF,LF,DR 
40060 IFHF<0THENRETURN 
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40070 POKESO+1,HF:POKESO,LF 

40080 POKESG+4,33 

40090 FORT=lTODRlNEXT 

401 00 PQKESQ+4 r 32 ;FORT-1 TOSO :NEXT 

40110 GOT040050 

4 01 20 DATAI 4,24,2 50,1 1,48,125,12,143,125,1 
4,24 r 125 

4 01 30 DATAI 1 , 48,1 25, 12,143,125,1 4,24,125,1 

5.210.250 

401 40 DATAI 2,143,12 5, 14,24, 1 25,1 5,21 0,1 25, 

12.143.125 

4 0150 DATAI 4,24,12 5,1 5,21 0, 125,16,ì 95,250 , 
18 209 250 

40160 DATAI 4* 24,1 25,1 5,21 0, 1 2 5, 1 1 ,48,1 25,1 

2.143.125 

401 70 DATAI 4,24,2 50,12,143, 1 2 S,11 r 48,1 25,1 

6.195.250 

401 80 DATAI 6, 1 95,250,14,24, 250, 1 1 , 48, 1 25,1 

2.143.125 

401 90 DATAI 4,24,125,1 1 ,48,125,12,343,125,1 

4.24.125 

4 0200 DATAI 5,21 0,250,1 2, 1 43,1 25,14,24 f 125, 

15.210.125 

4021 0 DATAI 2,143,1 2 5, 1 4,24,1 25,15,21 0,125, 

16.195.250 

4 0220 DATAI 8,209,250,14,24,125,15,210,125, 

11.48.125 

4 02 30 DATAI 2,ì 43,1 25,14, 24, 1 25, 1 6,195,125, 

14.24.125 

4 02 40 DATAI 2, 1 43,1 25,H,48, 500,- 1,- 1 , -1 
45000 PRXWTTAB(44)"{WHT}VORRESTI GIOCARE A 
NCORA {S/N)?" 

4 501 0 GETA? :IFA$ = tMI THBN450) 0 

45020 IFA$ = M S l, THENPRiNT n {CLR} ":GOTOl 80 

45030 IFA$-"PT'THENPRINT" {CLR } n : END 
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5.1 

L’uomo falco 
di Dindrin 

EstebaP V, Aguìlar, jr. — Versione par C64 dr Charles Brannon 


Volate attraverso il pericoloso deh del pianeta Dindrin per rac¬ 
cogliere delle pietre. Dovete raccoglierne un certo numero per 
vincere il gioco, ma fate attenzione ai mostri volanti e alfe lucertole 
In questo gioco sono state utilizzate delle tecniche spedali, come 
l'animazione , gli sprite multicolori e degli effetti sonori , tutte de¬ 
scrìtte nell'articolo. 

Cè uno strano pianeta chiamato Dindrin, i cui cieli diurni sono 
attraversati da strani mostri volanti. Sulla sua superficie degli ani¬ 
mali da preda dall'aspetto orrendo escono dal sottosuolo per 
esporre ai soie delle lucide pietre dorate. È un tipo di culto troppo 
misterioso da descrivere. 

All'improvviso una strana creatura dall'aspetto di falco scende 
dal cielo ed afferra una pietra. Voi siete l'uomo falco. It vostro 
obiettivo consiste nel prendere le pietre dorate. 

In questo gioco sono state usate delle tecniche spedali di pro¬ 
grammazione. Quando fate girare il programma osservate attenta¬ 
mente lo schermo. Un serpente pattuglia incessantemente la parte 
bassa dello schermo. Dei piccoli mostri volanti compaiono all'im- 
prowìso, come se nascessero nell'aria. Le ali dell'uomo falco bat¬ 
tono. Le pietre luminose in fondo allo schermo sono protette da 
minacciose lucertole che vi mostrano la lingua velenosa. 

Per giocare dovete usare il joystick inserito nella porta 1, Spostate 
la leva verso sinistra per tornare indietro. Spingetela in avanti o 
tiratela indietro per andare, rispettivamente, verso l'alto o verso il 
basso. Tenete presente che quando andate verso l'alto o verso il 
basso vi muoverete diagonalmente e non verticalmente. 

La risposta del joystick sarà strana e difficile da controllare, ma 
facilmente prevedibile. Di tanto intanto un ostacolo, costituito da 
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un piccolo mostro volante, vi ostacolerà nel cammino; premete il 
pulsante di fuoco per urtare contro l'ostacolo senza pericolo (e 
guadagnare dei punti). 

G sono alcune cose da considerare prima di giocare. Col passare 
del tempo la vostra energia diminuisce. Quando l'energia sarà finita 
perderete una vita. Inoltre, durante il volo evitate gli ostacoli, altri¬ 
menti ne perderete un'altra. Quando tutte le vite a vostra disposi¬ 
zione saranno finite finirà anche il gioco. 

Come è fatto 

Perle pietre e le lucertole sono stati usati dei caratteri multicolori 
II serpente è uno sprite colorato. 

L'animazione (il battito delie ali, i l movimento delle lingue) viene 
realizzata grazie alfa commutazione fra due set di caratteri. Ciascun 
oggetto animato ha due viste diverse. Per le figure che non devono 
essere animate, come le pietre o la riga con il punteggio, in entram¬ 
bi i set di caratteri viene ricopiata la medesima immagine. 

Per il movimento orizzontale continuo del serpente viene utiliz¬ 
zata una routine in linguaggio macchina. Invece di venire richia¬ 
mata dal BASIC, quando occorre. Fa routine in linguaggio macchina 
viene eseguita continuamente ed esegue anche la commutazione 
fra i due set di caratteri. 

Interrupt del Commodore 64 

Abbiamo usato la richiesta di interruzione via hardware (IRQ), 
Per fare in modo che una routine in linguaggio macchina venga 
eseguita automaticamente ogni 1/GO di secondo occorre cambiare 
il vettore IRQ alla locazione $0314 (normalmente punta alle rou¬ 
tine di interrupt della ROM), in modo che punti alla vostra routine 
in linguaggio macchina. Dopo l'esecuzione della routine, con 
un'istruzione |MP ritorna alla normale routine della ROM. 

Per questa modifica occorre usare un pìccolo trucco. Mentre 
caricate il nuovo valore di IRQ è necessario usare l'istruzione SEI 
(SEt Interrupt disahle bit = bit per la disabilitazione dell'interrupt), 
per evitare che si abbia un interrupt. Se non lo fate, si potrebbe 
verificare un interrupt dopo aver cambiato il primo byte del valore 
del vettore, ma prima di aver cambiato il secondo. In questo caso il 
vettore di interrupt conterrebbe un valore esatto solo a metà ed il 
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computer si bloccherebbe. 

Dopo aver modificato il vettore IRQ riportate il bit per la de¬ 
bilitazione dell interrupt al suo valore originario con CU (CLear 
Interrupt disable bit) e tornate al BASIC con RTS, La routine in 
linguaggio macchina verrà in tal modo eseguita continuamenie, 
commutando i due set di caratteri e muovendo lo iprite. 


Grafica multicolore 

La grafica multicolore è molto importante per ottenere degli 
effetti simili a quelli delle sale-giochi. Fino ad alcuni anni or sono gli 
oggetti in grafica (come gli aerei o i carri armati) erano sempre di un 
colore solo. Ma una delle caratteristiche della grafica dei video- 
giochi è stato un crescente realismo e gli oggetti a più colori ne 
rappresentano uno degli aspetti più importanti. 

Normalmente, quando definite un set di caratteri dovete create 
otto righe di pixel (punti elementari della figura). Ciascuna riga è 
larga otto pixel (o bit}. Con la grafica multicolore ogni riga è sud¬ 
divisa in quattro coppie di due bit. Ogni coppia di bit può conte¬ 
nere un numero da 0 a 3: OD, 01,10,1 C Per ciascun colore usate un 
numero diverso. Ciò riduce la risoluzione a quattro pixel a più 
colori per riga, perciò le lucertole e le pietre sono composte da due 
soli caratteri. Occorre anche dire al chip VICdl che volete usare la 
grafica multicolore. Potete farlo con: 

POKE 53270, PEEK(S3270) OR 16 
Per disabilitare la grafica multicolore: 


POKE 53270,PEEK(53270) AND 239 


Ecco un esempio di figura 
rrrr r = rosso i 

rbbb b = blu > 

rbvv v - verde 1 

rbvv 


multicolore: 

colori 

arbitrari 


Se i codici dei colori rosso, blu e verde sono (rispettivamente) 01, 
10 e 11, sostituendo si ottiene: 

01 01 01 01 01010101 
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Gl 

10 

10 

10 

01101010 

01 

10 

11 

11 

01101111 

01 

10 

11 

11 

01101111 


Potete modificare i colori secondo questa tabella' 

00 Sfondo n. 0 registro = 53281 
01 Sfondo n, 1 registro = 53282 

10 Sfondo n. 2 registro = 53263 

11 Colore nei 3 bit iniziali della memoria del colore. 

Quest'ultima linea richiede una spiegazione. Come sapete, per 
ottenere un qualsiasi colore eseguite ìi PGKE di un numero com¬ 
preso fra 0 e 15 nella corrispondente locazione di memoria. Tut¬ 
tavia i colori da 8 a 15 (ottenuti con il tasto Commodore) sono in 
effetti multicolori. I caratteri multicolori vengono sempre visualiz¬ 
zati con i colori da 8 a 1 5 : non otterrete perciò i primi otto colori (p. 
es,, il grigio), ma i colori indicati sui tasti (15 = giallo), Basta aggiun¬ 
gere 8 al numero del colore. Cosi, se nel bit si trova il valore 11, il 
colore verrà tetto nella memoria del colore. Gli altri colori vengono 
presi dai registri del colore (00 è trasparente), 

Gli sprite multicolori sono sìmili. Invece della normale risoluzio¬ 
ne a 24 bit, i bit sono raggruppati in coppie con 1 2 bit. I colori sono 
dati da: 

00 - Trasparente, colore dello schermo. 

01 - Registro 0 per sprite multicolore #0 53285 

10 - Registro per sprite normale 

11 - Registro 1 per sprite multicolore #1 53286 

Per dire al chip VIC-t! che volete usare uno sprite multicolore; 

POKE 53276, PEEK{53276) OR (2 X) 

X è il numero dello sprite, da 0 a 7, Potete usare insieme sullo 
schermo sprite multicolori e normali. Ma tutti gli sprite multicolori 
useranno gli stessi due registri per il colore, 

N suono del SIO 

Il rumore di sottofondo è realizzato con una nota bassa, un'onda 
ad impulso ed un decay piuttosto lungo (un secondo). Un altro 
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effetto sonoro (che non posso descrivere) è ottenuto con il rumore 
bianco ed un valore medio dei decay< Il byte alto della frequenza 
viene variato mentre La nota suona. C'è anche un terzo effetto, 
creato con una forma d'onda a dente di sega, che influenza il byte 
basso della frequenza. 

L’UOMO FALCO DI DINDRIN 

100 REM L*UOMO-FALCO Di DINDRIN 
110 REM VERSIONE PER IL COMMODORE 64 
120 POKE52,48:PGKE56, 48 :CLR:GOSUB50Q:EN-50 
0 :GOTO!60 

130 PRINT"{HOME}{RVS }{ RED}* ?TAB(9}"{SIN}"; 

EN; *' { BLU) 11 ;TAB { 26-LÉN(STRS CSC) ) ) ;$Cj 
1 40 IF ENC-0THEN41 0 

1 50 RETURN 

160 IF(PEEK(56321)ANDÌ5)<>15THENJS=PEEK (56 
321 )AND15 

170 IFRND(1)>.9THENQ=LL*RND(1)+(15*RND(1)+ 

2)*LL:POKET+Q f FOGLiPOKEC+Q f 6 *RN0(1)+2 
130 IFRND(Ì)<.7TNEN200 

190 Q=92 0+INT(20*RND(1))*2 :Z=33-2*(RND{1 ) > 

.7):POKET+G, Z :POKET+Q+1,3+1 
200 1FPEEK[V+31JTHEN41 0 

21 0 Q- PX+LL*PY: POKET+Q, PC : POKEC-HQ f 6 ;EN”EN- 
L9*(l - (PEEK(56321 ) ANDl 6) /1 6) 

215 PRINT"{HOME}(RVS}{REDI"TAB(9);"{SIN}"; 

-EN*(EN>Q) ;"{SIN} : IFENOGTHEN410 
220 NX=PX+1+2*(JS“11):NY=PY+(NX< 0) — (NX>3 9) 
iNX=-NX*(NX< 40)-40 *(NX< 0) 

2 30 NY=NY-(JS=13)+(JS=14):IFNY< 20RNY>2 3THE 

NJS=2 7-JS:NY=PY 
240 ffHATSIT=PEEK(T+NX+LL*NY) 

250 IF NY>22 THEN 300 

260 IFMHATSIT=32THENPOKET+PX+LL*PY,32 tPX=N 
X:PY=NY;GOT0160 
270 IFPEEKC56321)ANDl 6THEN410 
280 POKET+PX+LL*PY,32:POKES+24,15:POKES+5 r 
9 ;POKES+6 , 0 :POKES+1 f 10 


i 
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281 FORI-OTO)G:POKES f I*20 :POKES + 4,32:POKES 
+4,33:NEXT:POKES+2 4 f 0 
290 WHATSIT-32;SC = SC+10 ;ER=EN-50 ;GOSURl30: 
GOTD250 , 

300 JS=27-JS:IFWHATS1T< 33GRWHATSIT>34THEM3 
30 

305 Q=(NXAND254)+LL*NY:POKET+Q,32 :POKET+Q+ 
1,32:EN=EN+5Q 
310 GOTO 3 2 0 

288 PQKET+PX+LL*PY,32;Q=LL*NY+NX:F0KET+Q,3 
, 7 :POKET+Q+1,3 8 :PQKET+G-LL ,42 

320 POKET+PX+LL*FY,32;PX=NX:SC=SC+50:GOSUB 
130 : GOTO160 
330 IFWH-32THEN160 
340 REM CATTURALI E MANGIALIJ 
350 POKÉT+PX+LL*PY,32:Q-LL*NY+(NXAND254) :P 
OKET+Q , 3 7 : PO KÉT+Q+ “\ , 38 :POKET+Q-LL f 4 2 
3 60 POKET+Q'-LL+l , 36:PQKEC+Q-LL, 1 3:PQ.KEC+Q- 
LL+1,13 

370 POKES+24,15:POKES+1,0 :POKES, 255:POKES+ 
3,8:POKES+2 f 0 :PQKES+5,12:POKES+6,0 
375 POKES+ 4,64 :POKES+ 4,65:FORW=lTOl5G0:NEX 
T:POKES+4,64 :FORL-STQS+24:PQKEL,0 :NEXT 

380 POKE T+Q,33 :POKET+Q+1,34 ;POKET+Q-LL,32 
: POKET+O-LL+1 , 32 
390 GOTO 430 

400 REM IL GIOCATORE INCONTRA LA MORTE 
410 PQKES+24,15:POKES+5,9:POKES+6,Q:POKES, 

200 

420 FORI-0TO90STEP6:Q=PX+LL*PY:POKET+Q,44+ 
1/30 :POKEC+Q f 8*RND(1) 

425 POKE53280,16*RND(1):POKES+1,I:PGKES+4, 
128 :POKES+4,129;REXT 
427 FORL=STOS+2 4 :POKEL,0 :NEXT 
430 POKE532 80,G jIFLI< 3THENPOKET+3 5+LI* 2,32 

440 POKET+PX+LL*PY, 32 :Z-PEEK( V+ 31) :LI=LI+1 
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:IFLI<4THÉNEN=5G0 :G0SUB720 :GOTOl 60 
450 SYS52 992 : REM TCJRN OFF ML 
460 PRINT" t HOMEì { 3 GIU 1 ) {RVS} "; TAB { 1 7) ? " 

{BLK} F {RED} I { CYN} N { PUR J E{ BLU} Tl 
4 70 PRINTTAB( 2) " {GIU 1 } {RVS}PREMI IL {RED}? 

UOCQ{BLU} PER GIOCARE ANCORA 11 
480 IF(PEEK(56321 ) ANDl6)THEN480 
4 90 RUN 

500 REM INIZIALISZAZIONE 
510 POKE53280 p 0 :POKE53261 , 1 
515 T-l024iC=55296:S=54272:LL-4G 
520 CHSET=122881IFPEEK{CHSET+264 ]=2 THEN 5 
70 

530 PRINT" {CLR}":C$”"{BLK} {RED} {CYNHPUR} 
{GRN} (YELj {BLU} 11 : FORI = l T07 ;PRINT” 
{HOME}{GIU 1 1)JiGOSUB20Q0: 
NEXT 

550 PRXNTTAB [1 0) " {GIU 1 } { 2 DES}{BLK}PRONTO 
FRA (RED)22(BLK) SECONDI "; 

560 GOSUB750:GOSUB 840 
570 PRINT"{CLR} H ; :FOOL-41 
575 FORL=STOS+24;POKEL,OsNEXT 
580 PC“4 3 : POKE53282,10 :P0KE53283 F 2 
590 POKE 53272,(PEEK(53272}AND 2 4 0)ORI 2;REM 
ABILITA IL NUOVO SET DI CARATTERI 
600 POKE 53270,PEEK{53270]ORI 6 :REM SELEZI 
ONA IL COLORE 

610 PRINT 1 " {HOME} {RED} {RVS} ENERGIA 500 
{ 2 SFAZIHBLUH 2 SPASI}PUNTI 
{ 4 SPAZIÌ0 {GRN}{ 3 SPAZX}VITE {OFF} 

{PUR}+ + +" 

630 FORI = OT039STEP2; Q=2 4 *LL+IiPOKET+Q,39 :P 
OKET+Q+1 , 40 :PQKEC+Q 1 7:POKEC+Q+1,7:NEXT 

64 0 FORI-0TO3 9STEP2:Q= 2 3*LL+1 :POKÉT+Q, 3 3 ì P 
OKET+Q+1,34 :POKEC+Q r 13 :POKEC+Q+1 # 13:NE 
XT 

650 Q^l0+23*LL:POKET+Q P 35:POKET+Q+ì,36 


i 
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660 

670 

6 SO 

681 

685 

690 

700 

71 0 


720 


730 

740 

750 

760 
770 
7S0 
790 
802 
304 
306 
808 
81 0 
81 2 
81 4 
81 6 
81 3 
340 

841 

842 
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V~532 48 : REM INIZIO DEI REGISTRI DEL VI 
C-II 

POKEV,220 :POKEV+1,194:POKEV+2ì ,1;PQKEV 
+39,72POKE2040,13 

POKEV+2 3,1 :POKEV+2 9,1 :PGKE53285,3:POKE 
53286,4:POKE53276,PEEK{53276)ORI 
FORI=0TO63:POKE832+I,0:NEXT:RE&TORE 
FORI“0TO18 :READA :PGKE832+3+I,A:NEXT 
DATAI 92,0,3,240,0, 1 5, 1 24,35,95, 2 55,0, 1 
2,3,0,3,0,0,0,240 

FORI = 1TO5:Q-40*RND(1}+ (10*RND(1)+3)*LL 
:POKET+Q,POOL :POKEC+Q * 6*RND(1)+2 ;NEXT 
SYS52992:REM ESEGUI LA ROUTINE IN LING 
UAGGIO MACCHINA 

PX-5 :PY=5 :PC = 4 3 :POKET+PX+LL*PY,PC:POKE 
C+PX+ LL* PY,6 

IF(PEEK(563 21 ) AND15)=15THÈN730 
RETURN 

RESTORE:FGRI=0TOl8:READA:NEXT:EORI-OTO 
96 :READA:POKE52992+1,A:NEXT:RETURN 
DATA 1 20,1 73,21,3,201,234,208, 19 
DATA 169,39,141,20,3,169,207,141 
DATA 21,3,169,0,133,251,133,252 
DATA 76,37,207,169,49,141,20,3 
DATA 1 69,2 34,141 ,21 ,3,8B,96,1 65 
DATA 2 51,141 ,0,2 0 8,1 73,1 6,2 08, 41 
DATA 2 54, 5,2 52,1 41 ,1 6,20 8,2 4, 1 65 
DATA 251,105,4,133,251,165,252,105 
DATA 0,133, 2 52,240,1 2,1 65,2 51,201 
DATA 91,144,6,169,0,133,251,133 
DATA 252,165,162,74,144,8,173,24 
DATA 208,73,2,141,24,208,76,49 
DATA 234 

PO KE 5 6 3 3 4 ,PEEK( 56334)AND 2 5 4 :PQKEl ,PEEK 
(1) AND251 

FORI = 0TO511 :FOKEl331 2 + 1,PEEK(54272+1} : 

POKE1 5360+1,PEEK £54272 + 1) :NEXT 

POKE1,PEEK(1)OR4:POKE 56334,PEEK(56334) 
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ORI 

860 READA : IFA=-1THENKETURN 

870 FORJ=0TO7:READB:POKECHSET+A*3+J,B:NEXT 
S:GOTO860 

880 DATA 32,0,0,0,0,0,0,0,0 
890 DATA 33,2,9,9,9,9,9,2,0 
900 DATA 34,160,88,88,88,88,88,160,0 
910 DATA 35,12,3,16,196,195,63,3,3 
920 DATA 36,0,192,252,236,252,240,192,192 
930 DATA 37,3,35,131,139,139,171,35,3 
940 DATA 38,192,192,224,232,202,194,194,20 
0 

950 DATA 39,64,80,84,85,85,85,85,85 
960 DATA 40,1,5,21,85,85,85,85,85 
970 DATA 41,0,102,219,36,126,137,66,60 
980 DATA 42,0,15,0,51,63,15,15,3 
990 DATA 288,0,0,0,0,0,0,0,0 
1000 DATA 289,2,9,9,9,9,9,2,0 
1010 DATA 290,160,88,88,88,88,88,160,0 
1020 DATA 291,12,3,0,192,195,63,3,3 
1030 DATA 292,0,192,252,204,252,240,192,19 
2 

1040 DATA 293,3,3,35,171,139,139,131,35 
1050 DATA 294,192,200,194,194,202,232,224, 
192 

1060 DATA 295,64,80,34,85,85,85,85,85 
1070 DATA 296,1,5,21,B5,85,85,85,85 
1030 DATA 297,129,102,90,36,126,82,36,24 
1090 DATA 298,0,15,0,48,63,3,15,15 
1100 DATA 43,153,219,231,255,90,24,36,66 
1110 DATA 299,24,90,231,255,219,153,36,66 
1120 DATA 44,217,219,231,75,2,24,36,66 
1130 DATA 45,216,225,235,69,7,2,40,66 
1140 DATA 46,192,192,145,3,67,1,72,130 
1150 DATA 47,192,128,8,1,1,0,16,128 
1160 DATA 300,217,219,247,99,22,24,36,68 
1170 DATA 301,216,225,227,71,23,130,32,66 
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1180 DATA 302,192,200,129,3,131,1, 64,130 
1190 DATA 303,192,144,0,1,1,0,8,128 
1200 DATA -1 

2000 PRINTSPC(7)"[RVS] { 2 DES}[<C>]{DES} 

{ 2 DES} (DES} £{ 2 SPAZI}[<*>]{DES} 

£ [<*>]£ {<*> JTdES} £{ 2 SPAZI] [<*>] 11 
2010 PRINTSPC(7)"{RVS} CA DES} { 2 DES} 
{DES} { 2 DES} {DES} { 4 DES} {DES} 

£ 2 DES} " 

2013 PRINTSPC(7) ,r {RVS} ( 4 DES} { 2 DES} 
{DES} { 2 DÉS} {DES} { 4 DES) {DES} 

( 2 DES} 11 

2020 PRINTSPC(7)"{RVS} { 4 DES} { 2 DES} 
{DES} { 2 DES} {DES} { 4 DES} {DES} 

{ 2 DES} 11 

2030 PRINTSPC { 7) "{RVS} { 4 SPAZI} {DES } {OFF J 
[< * >] {RVS}{ 2 SPAZI}{DEE}£{ RVS}{DES} 
{OFFH<*>j {RVS} { 2 SPAZI}IOFF}£[RVS] 
{DES} { 4 DES} [DES}{OFF}[<*>llRVS} 

[ 2 SPAZI) {OFF} £" 

2040 PRINT 

2060 PRINTSPC(7)"{RVS }{ 4 SPAZI){DES}£ 

{ 2 SPAZI} [<*>] {DBS} { 4 DES}£ 

{ 4 SPAZI}! 2 DES}£ £ 2 SPAZI }[<*>]" 

20 70 PRINTSPCf7)’M RVS) T 4 DES} { 2 DES} 

£ DES} { 4 DES} { 6 DES} { 2 DES} tt 
2075 PRINTSPC (7) "{RVS ì { 2 SPAZlH 3 DES} 

{ 4 SPAZI}{DES} { 4 DES} { 6 DES) 

( 2 DES} " 

2080 PRINTSPC{7)"{RVS} { 4 DES} { 2 DES} 
{DES} { 4 DES} { 6 DES} { 2 DES] n 
2090 PRINTSPC(7)"[RVS} { 4 DES] { 2 DES} 

£ DES}{ 4 SPAZI}{DES}{OFF}[<*>] {RVS} 

{ 4 SPAZI}{ 2 DES}{OFF}[<*>}[RVS} 

{ 2 SPAZI}{OFF}£" 

2100 PRINT 

2110 PRINTSPC(14)°{RVS}{ 4 SPAZI}[<*>] 
{DES} " 


T42 






Giochi da sala giochi 




2120 PR1NTSPC £1 4) " { RVS} £ 3 DES} {DES} rl 
2130 PRINTSPC (14) 11 1 RVS} { 3 DES} {DES} 11 
2140 PRINTSPC[14)"{RVS}{ 4 SPASX } {OFF} £, 

{RVSMDES} " 

2150 PRINT 

2160 PRINTSPC ( 5) 11 {RVS} { 3 * SPAZ I} [ <*> ] {DES} 
{DES} É [ 2 SPAZI}E<^>}{ 2 DES} 

{ 3 SPAZI}[<*>]{DES}{ 3 SPAZI}[<*>] 
{DES} [DES}£( 2 SPAZI }{<*>}" 

2170 PRINTSFCjSì^RVS} { 2 DES} {DES} 

{DES} { 3 DES}{<*>1 {DES} { 2 DES} 
{DES} { 2 DES) {DES} {DES} { 3 DES} 

[<*>}" 

21 SO PRIHTSFC(S)"{RVS} { 2 DES} {DES} 

{DES} { 3 DES} {DES} { 2 DES} {DES} 

{ 4 SPAZI}{DES} {DES} { 3 DES} " 

2Ì 35 PRINTSPC( 5) " { RVS} [ 2 DES} {DES} 

{DES} { 3 DES} {DES} { 2 DES} {DEÒ-} 

{ 2 DES) {DES} {DES} { 3 DES} 11 
2190 PRI NTS PC {5 ) 11 { RVS} { 3 SPAZI} {OFF } £ 
{RVS}{DES} {DES} { 3 DES) {DES} 

{ 3 SPAZI}{OFF}£{RVSHDES} { 2 DES} 
{DES} {DE£} { 3'“DES} " 

2200 RETURN- * 
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5.2 

Campo minato 

Scan Igo — Versione per CG4 di Gregg Peele 


// vostro lavoro consiste nel guidare un camion in un campo 
minato, distnnescare le bombe (specialmente quelle lampeggianti , 
che stanno per esplodere) ed uscirne il più velocemente possibile „ 
Il gioco ha quattro livelli dì difficoltà. 

In quésto gioco guidate un camion con Jo scopo di raccogliere e 
disinnescare delle bombe a tempo prima che esplodano, evitando 
nello stesso tempo le mine ed i crateri delle esplosioni, 

il gioco 

Vi trovate al centro dii un piccolo campo minato con diverse 
bombe, rappresentate da cerchi, ed un gran numero di mine, rap¬ 
presentate da X. Il camion da voi guidato è un rombo. Per disin¬ 
nescare le bombe dovete passare sopra di esse co[ camion. 

Quando le bombe appaiono sono dei piccoli innocenti cerchiet¬ 
ti. Dopo poco — il tempo varia da bomba a bomba — cambiano in 
«reverse». Questo significa che dovete stare attenti! Presto comin- 
ceranno a lampeggiare e voi avete pochissimo tempo per disinne¬ 
scarle prima che esplodano. Se questo avviene, tutte le mine fo 
l'eroica squadra artificieri) coinvolte nell'esplosione andranno per¬ 
dute. Anche le bombe coinvolte nell'esplosione esploderanno a 
loro volta, anche se non sono pronte per esplodere. 

Il camion può muoversi in quattro direzioni e può uscire dai 
quattro lati dello schermo. Non fatelo andare contro le mine o nei 
crateri aperti dalle bombe, altrimenti resterà distrutto. Una volta che 
cominciate a muovere il camion non potete più fermarlo, finché 
non salta in aria o non avete eliminato tutte le bombe dai cam¬ 
po. 

Uveiti di difficoltà e punteggio 

«Campo minato» ha quattro livelli di difficoltà. I livelli differisco¬ 
no solo per il numero dei camion a vostra disposizione. Al livello 0, 
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il più facile, ne avete quattro; al livello 1, tre; al livello 2, due ed al 
livello 3 uno solo 

Punteggio: 10 punti per una bomba normale 
20 punti per una bomba in «reverse» 

30 punti per una bomba che lampeggia 
- 10 punti per ogni bomba coinvolta nelle esplosioni, tur incentivo 
a disinnescare più bombe ad ogni esplosione. 

CAMPO MINATO 

% 

30 REM CAMPO MINATO PER C^64 
45 POKE53280,0:POKE53281 ,0 
50 GOSUB 1130 

60 REM-IN XZIALIS ZAZIONE VARIABILI -- 

70 DIM BT(37) ,B3{37) ,B4(37) ,BP(37) ,BS(37) , 

XM(4} , YM { 4 ) , BC ( 2 5 ) 

80 DEF FNY(X)“ INT £(X-1Q24J/4G) 

90 DEF FNX(X)=(X-40*FNY(X)}~1024 
100 DEF FN$(X)=1 02 4+PX+4 G*PY 

HO DEF FMP(X)=1 307+INT(34*RND(1M+40*INT( 

1 5*RND [ 1 ] ) 

120 DEF FNN(X)=PÉEK(FNS <X> > 

130 FORJ^l TO 4 : RE AD XM{J) ,YM(J) : NEXT 
1 40 DATA 0,-1,G,1,-I,0,l f 0 
1 50 SOO :BT=1 680 :NB=4:NW=0:D=54272 
160 PRINTMCLR} 11 f :POKE 53272,21 
170 PRINT 11 {RVSHWHT}CAMPO *** z PUNTI: 0” 

180 PRINT"{RVS} ÌwHT}********-RECORD:";HS 
190 PRINT 1 * t RVS J {WHT} **MINATOCI 2 DES} FASE : 

1 " 

200 PRINT n {RVS} (WHT} { 8 SPAZI } z { DES } 11 ; : IF 
NLOl THEN FORJ-1 TO NL-1 SPRINT "Z" ? :NE 
XT 

210 FORJ-1024 TO 1183 :IFPEEK(J)=32 THEN PO 
KE J,160:POKEJ+D,1 
220 NEXT 

230 XP$ = H [RED}U-1{GIU 1 H 4 SIN}( 2 U}- 
{ 2 1} {GIUNTI 6 SIN} { 3 UM 3 1} 


i 
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{GluMÉ 7 SIN}{ 3 *}*{ 3 M {GIU* } 

{ 7 Siti} { 3 J}-{ 3 K}" 

235 XP$=XP$+"{rEd1TgIU'T{ 6 SIN} f 2 j}~ 

[ 2 K} [GIU 1 } { 4 SIN 1 J-K" 

240 S$="ThOMe}[ 24 GIU* } 11 
250 Q$=" {WHT}{ 40 DES}" 

260 XRS =" {WHT} [ 3 SPAZI}{GIU 1 }{ 4 SIN} 

{ 5 SPAZI}{GIU’}{ 6 SIN){ 7 SPAZI} 

{GIU*}{ 7 SIN}{ 3 SPAZI}*{ 3 SPAZI} 
{GIU’H 7 SIN} { 7 SPAZI} " 

265 XR$ = XR$V {GIU 1 }[ 6 SIN} [ 5 SPAZI} 

{GIU r }{ 4 SIN} { 3 SPAZI}" 

270 REM ---PREPARA FASE SUCCESSIVA-- 

280 BG=0:NW=NW+1:IF NW>11 THEN 310 
290 NB-NB+1«5:IF NW=1 THEN 330 
300 IF NW<6 THEN BT=BT-180 

310 PRINT" {HOME} { 2 GIU ’ H RVS} Tl ? TAB {1 6} ; NW 

320 POKE FNS( 1 ),32:POR J=1 TO NB:PQKEBP(J ) r 
32 :NEXT 

32 5 FOR J =1 TO 25:POKE BC(J) ,32 :NEXT 
330 BN=INT(NB):FGRJ=1 TO NB:BS{J)=1 :NEXT 
340 FORJ-1 TO NB 

350 BT (J) -(.4+INT[6l*RND(1))/I00]*BT 
3 60 B3( J) ~BT(J)+,5*BT(J) ;B4(J)*B3(J)+,25*B 
T(J) 

370 NEXT 

3 80 PX=19:PY=15:POKE FNS(1) ,90 :POKEFNS(ì) + 
D,ì 

3 90 FORJ =1 T0 NB 

400 BP(J)-FNP(1}:IF PEEK(BP(Jì)<>32 THEN 4 
00 

410 POKE BP(J} , 87 :POKEBP f J)+D t 8:NEXT;NN=0 

415 FOB J =1 T0 25 

416 BC ( J)-FNP{7 > :IF PEEK( BC ( J})<>32 THEN 4 
1 6 

417 IF PEEK (BC [J) +1 ) -87 THEN 416 

41 9 POKEBC(J) ,86 ìPOKEBC[J) +D,5 :NEXT 
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420 GET R$ i IF R$O lMl THEN 4 20 
430 DR=0:TX=TI 

440 REM ---RICEVE COMANDI- 

450 R=(l5-(PEEK[56321)ANDl5))*2 
4 60 IFROOTHENDR-LOG (R)/LOG(2) 

470 IFR=0THEN490 
4 30 REM - -—SPOSTA IL CAMION--- 
490 IF DR-0 THEN 600 

50 0 POKE FNS[1) ,32 :PX-PX+XM(DR) :P¥=PY+YM(D 
R) 

510 IF PX<0 THEN PX=39 
52 0 IF PX>39 THEN PX=0 
530 IF PY<4 THEN PY-24 
540 IF PY>24 THEN PY"4 
550 X=FNN(1) 

560 IF X-32 THEN POKE FNS(1) ,90 :POKEFNS(1 1 
+Di1:GOTO 600 

570 IF X-42 OR X=86 THEN 960 
580 GOTO 890 

590 REM ---AGGIORNA LE BOMBE--- 
600 NN=NN+1:IF NN>INT(NB)THEN NN=1 
610 IF B£(NN)-0 THEN 600 
620 TG=TI-TX 

630 IF TG>B4[NN) THEN Nl=NN;GOTO 720 

640 IF BS(NN)>2 THEN 690 

650 IF TG>BT(NN) THEN BS(NN)=2 

660 IF TG>B3(NN) THEN B$(NN)-3 

670 IF BS CNN}-1 THEN 450 

680 IF BS(NN)=2 THEN POKE BP(NN),215 i POKER 
P{NN)+D , 1 iGOTO 4 50 

690 IF BS(NN)=3 THEN POKE BP(NN) ,87 !POKEBP 
[NN)+D,1:BS(NN)-4ìGOTO 450 
700 IF BS(NN)-4 THEN POKE BP(NN) f 215:POKEB 
P(NN)+D,1iBS(NN)=3;GOTO 450 

710 REM ---ESPLODE UNA BOMBA - 

720 TQ-TI:PD=0 

7 25 X$ = "{OFF}"+LEFT?(S$ t FNY(BP(Ni) )-2)+LEF 
T$(Q$ t FNX(BP(Ni ) )-l) 
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730 BS[Nl)=0:N2=0:PRINTXS;XP$; 

740 FGRJ=T TO NB:X=PEEK(BP[J)) : IF BS(J)=0 
THEN 760 

750 IF X< >87 AND X<>215 AND X<>218 THEN N2 

-J 

760 NEXTiIF FNN(1)<>90 AND FNN(1}<>218 THE 
N PD= ] 

770 FRINTX$;XR$;:GR=129 :GOSUB2000 
7 80 FOR J = 1 TONB : IF PEEK (BP [ J) ) =3 2 AND BS(J) 
<>0 THEN POKE BP(J) ,87-120* { BS(J)>1 ) 
790 NEXT:BN=BN~1 
800 IF PD=Ì THEN 960 
810 IF BN=0 THEN 840 

820 IF N2=0 THEN TX=TX-H TI-TQ): GOTO 450 
33 0 Ni=N2; GOTO 72 5 

840 PRINT'MHOME} { 2 Gl U 1 H RV5 } " ; TAB I 20 ) ; 
850 FOR J = ] TO 2 0 :PRINT'*{RVS}COMPLETA 

{ 8 SIN} 11 ; :PORK™ 1 TO 1Q0;NEXT 
3 60 PRINT"[RVS}{ 8 SPAZI}! 8 SIN} " ? *FORK=1 
TO 100:NEXT:NEXT 

870 SC-SC- 1 0 * ( INT ( NB) -BG ) : IF SC<0 THEN SO 
0 

880 PRINT'M 4 SIN}{ 3 SU}{ 10 SPAZI} 

{ 10 SIN} TI ?SC:GOTO 2 80 

88 5 REM-BOMBA RACCOLTA- 

890 BG=BG+1ìTQ-TI:POKE FNS(ì),218 
895 F0RJ=1 TO NB:IF PEEK ( BP(J)) =2 18 THEN A 
J=BS(J) :B S(J)=0 
900 NEXT 

910 IF AJ = 4 THEN AJ-3 

92 0 SC=SC+1 0 * AJ : PRINT 1 * {HOME} {RVS} ,f ; TAB (16) 

; SC 

930 GR= 33 :GOSUB2000:BN= BN-1 *IF BN=0 THEN 8 
40 

940 TX=TX+(TI-TQ) i GOTO 450 

950 REM-GIOCATORE DISTRUTTO- — 

960 GR=129 :GOSUB2000 

961 TQ=TI:FORCAI TO 20:POKE FNS( 1} ,42 :FORK 
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= 1 TO 2 5 :NEXT:POKE FNS(1),170 
970 FORK= 1 TO 2 5 :NEXT : NÉXT : POKE FUSO),32; 

NL=NL-1 

980 POKE 1 1 53+NL,160:DR*QiFX^l9:PY=15 
990 IF NL 31 0 THEN 1 045 
1000 IF BM-0 THEN 840 
1010 GET R$ HF R$<> 11 fl THEN 1010 
1020 FORJ=1TONB:IF PEEK(BP(J)}=32 AND BS(J 
}<>0 THEN POKE BP(J) f 87-128*(BS(J}>1 ) 

103 0 NEXT 

1040 POKE FNS (1 ),90:TX-TX+(TI-TQ):GOTO 450 

1 045 IF SOHS THEN HS = SC: PRINT" f HOME} 

(GIU 1 } {RVS} 11 ;TAB (16) ; HS 
1 050 FORJ-1 TO 1 500; NEXT: PRINT 11 {HOME }{WHT} 
{ 2 GIÙ' } {RVSp';TAB(20) ?"--FINE-- 
{GIU 1 }{WHT}{ 9 SIN}GIGCHI ANCORA?"; 

1 060 PRINT 1 ' (S/N) { 4 SIN}* 1 ? 

1 080 PRINT" |RVS}S/{OFF} N{ 3 SIN) 11 ; 

1081 FORJ=l TO 99 :NEXT 

1 082 PRINTMOFFjSfRVSj/NÌ 3 SIN) 11 f 

1083 F0RJ=1 TO 99;NEXT 

1 0 84 GET R$; IF R$="S" THEN 1110 

10 90 IF R$<> ,I N 11 THEN 1080 

1100 PRI NT 11 {CLR ]{WHT} ARRI VEDERCI I n ;END 

1110 GOSUB 1130:GOTO 150 

1120 rem ---INSTRUCTIONS- 

1130 PRINT"{CLR}{RVS}{WHT}C{SPAZI}ft{SPAZI} 
M{SPAZl}PlSPAZI}0{ 3 SPAZI)M{SPA2II1 
TspazI}NTSPAZI}aTspazI}T{SPAZI)O":POK 
E 53272,23 

1140 PRINT"{WHT}VUOI LE ISTRUZIONI (S/N)?" 

1150 GET R$ : IF R$ = "N 11 THEN 1410 
1160 IF R$<>"S" THEN 1150 

1180 PRINT"[CLR}(WHT}LO SCOPO DI QUESTO Gl 
OCO E 1 DI{ 2 SPAZI}PRELE~” 
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1190 PRINT 11 {WHT}VARE IL MAGGIOR NUMERO 
{ 2 SPASI}DI BOMBE PRIMA 11 

1200 PRINT"{WHT}CHE ESPLODANO. E',5UFFICEH 
TE, PASSARCI" 

1210 PRINT"{WHT}SOPRA CON IL CAMION." 

1220 PRINT"{WHT} LE BOMBE ESPODONO DOPO POC 
O TEMPO." 

1230 PRINT"{WHT}SE UNA{ 2 SPASI}BOMBA APPA 
RE IN{ 2 SPASI]NEGATIVO,FATE" 

1240 PRINT"{WHT}ATTENZIONE.{ 2 SPASl}SE CO 
MINCIA A LAMPEGGIARE" 

1 250 PRINT"{WHT}IN BREVE ESPLODERÀ 1 I ! I " 
1260 PRINT"{WHT}LE BOMBE REAGISCONO A CATE 
MA. SE UNA" 

1270 PRINT"{WHT}BOMBA INCAPPA NELL'ESPLOSI 
ONE{ 2 SPAZI}DI" 

1280 PRINT"{WHT}UN 1 ALTRA LE ESPLODERÀ 1 1NS 
IEME." 

1290 PRINT"{WHT}LE ESPLOSIONI DISTRUGGONO 
IL CAMION SE" 

1 300 PRINT"{WHT}GLI E 1 VICINO, DOVETE, ANC 
HE f { 2 SPAZI}EVITARE" 

1310 PRINT"{WHT}LE MINE (X) E I CRATERI DE 
LLE BOMBE[*)" 

1315 PRINT"{WHT}0 SARETE ANNIENTATI!" 

1320 PRINT"{WHT }l CONTROLLI SONO: 

{ 4 SPAZI}1 = SU" 

1330 PRINT"{WHT}{ 18 SPAZI}CTRL - SINISTRA 

ip 

1340 PRINT"{WHT} { 21 SPAZI}2 = DESTRA" 

1350 PRINT"{WHT}{ 21 SPAZI}- - GIU 1 " 

1355 PRINT"{WHT}POTETE USARE UN JOYSTICK N 
ELLA PORTA T. " 

1360 PRI NT '* {WHT }_I L VOSTRO CAMION NON PUÒ 1 
FERMARSI. " 

1370 PRINT"{WHT}MA{ 2 SPAZI}PUO' 

{ 2 SPAZI}GlRARE{ 2 SPAZI}INTORNO ALL 
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0 SCHERMO lf 

1 380 FRI NT 11 { WHT} SI A IN ORIZZONTALE CHE IN 
VERTICALE* 1 ' 

1 390 PRINT TI {GIU 1 } {WHT) P{WHT}REMERE RETURN 
PER{DES}CONTINUARE" ; 

14 00 GET R$:IF R$OCHR$(13) THEN 140 0 
1410 PRINT 11 {CLR}S{ WHT} ELEZ IONA IL LIVELLO 
DI DIFFICOLTA 1 (0-3) 11 

1 42 0 GET R$:IF R$<"0 lt OR R$>"3" THEN 142 0 
1430 NL=4-VAL(R$):RETURN 

1900 END 

2000 REM SUONO DELL’ESPLOSIONE 
2010 QW= 542 72 

2 02 0 FORS = QWTQQW+ 2 4 ; PO KE S,0 :NE XT 
2025 POKEQW+24,47 

2030 POKEQW+5,64+7 :PGKEQW+6,240 

2050 POKEQW+4,GR ;POKEQW+l,36:POKEQW,85 

2060 FORT=1TG250:NEXT 

2070 FORT-15TOOSTEP-1 iPGKEQW+24,INT(T):NE 
XT 

2080 RETURN 


i 


151 





5.3 

Cylon Zap 


Mark Dudley — Versione per C64 di Gregg Reeie 


Per questo veloce gioco d'azione vi occorrono dei riflessi pronti 


*Cylon Zap* è un gioco nello stile delle sale-giochi. Una stazione 
spaziale al centro dello schermo, che voi dovete difendere ad ogni 
costo, viene attaccata senza tregua dai vascelli di Cylon. Voi dovete 
colpirli prima che raggiungano (come dei kamikaze) la stazione 
spaziale. 

Per difendervi dai Cylons avete a disposizione due armi. Con la 
prima, muovendo la leva del joystick verso l'alto, il basso, destra o 
sinistra sparate dei raggi laser nelle quattro direzioni, Con la secon¬ 
da, premendo il pulsante di fuoco, provocate l'esplosione di una 
bomba che ripulisce immediatamente lo schermo dì tutti gli attac^ 
canti visibili. Le bombe vanno usate con parsimonia, poiché all'Ini¬ 
zio del gioco ne avete a disposizione solo tre. 

Il punteggio ed il numero delle bombe rimaste sono continua- 
mente aggiornati sullo schermo, in alto a sinistra. Quando il pun¬ 
teggio arriva a 30, gli attaccanti ai lati diventano più veloci. Quando 
il punteggio raggiunge 50, acquistano maggior velocità gli attaccan¬ 
ti provenienti dall'alto e dal basso. Se superate i 60 punti, avete una 
bomba come bonus. 

Se superate il punteggio più alto realizzato dall'inizio del gioco, 
dovete dare le vostre iniziati col joystick. Muovendo la leva a destra 
o a sinistra percorrete l'alfabeto indietro o in avanti: una volta 
trovata la lettera giusta, per selezionarla premete il pulsante di 
fuoco: state attenti a non tenerlo premuto troppo a lungo, o potre¬ 
ste inavvertitamente scegliere la lettera sbagliata. 

CYLON ZAP 

100 PQKE52 t 48IPQKE56,4S:CLR 

125 DATA2S,149,1 00,2 5,30 F 1 0 0,33,1 35,100,37 
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,1 62,50,50,60,50 

1 30 DATA42, 6 2,100,37,162,50,50,60,50,42,62 
,100,33,135,100 
140 DATA28,49,100,25,30,100 
145 FGRX-1TO 3 6: READRT:NEXT 

1 50 FRI NT" {CER} fl :POKE53 2 81 ,0 :POKE5328Q , 0 :P 
RINTCHR$ 0 4) 

160 GOSUB590 

170 PRINT 11 { 3 GIU'H 9 SPAZI}[RVS)STO 
{SPAZI} CREANDO {SPAZI}I{SPASI) CARA 
t 2 T) ERI" 

180 POKE56334,(PEEK{56334)AND254)tFOKEl,PE 
EK (1 ) AND2 51 

190 FORA = 0TO2047:POKE(A+l 2288) ,PEEK(A+5324 
8) : NEXT 

200 FORA-Ì2552T012672 
210 READD 

220 IFDO-1 THENPOKEA,DiNEXT 
230 FORACI 2288TD1 43 35:READDiIFDO-1THENPOK 
EA,PEEK(A):NEXT 

240 FORA-12504TO12527iREADDrPOKEA,D:NEXT 
250 POKEl,55 

260 POKE56334,PEEK(56334)ORI 
270 GOSUB750 :PRINT"{SU) [ 12 SPAZI} ISTRUZI 
OHI{OFF} {RVS}${OFF} O {RVS}N{OFF} 

TTi spasi } 11 

280 GETA$:IFA$ = ,M, THENFGKE56Q79,INT(RND(1)* 
7+1):POKE56083,INT(RND(1)*7+1);GGTO280 

290 IFA$- ,, S"THENPQKE53272 ,(PEEK(53272}AND2 
40)+12:GOSUB33G 
300 GOTO!000 

310 DATA2 4,24,60,1 26,24, 24,1 26, 2 55,1 , 1 9, 51 
,255,255,51,19,1,128,200,204,255,255,2 
04,200 

32 0 DATAI 2 8,2 55,126,2 4,24,1 26,60,24,24,24, 
24,60,24,60,126,219,195,3,7,44,254,254 
,44,7,3 


i 
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^ Giochi da sala giochf 

3 30 DATAI 92,224, 52,1 27,127,52,224,192,195, 
219,ì 2 6,60,2 4,60,24,24,16,8, 16, 8,16,B, 
1 6 , 8 

3 40 DATAI 4 5,74,4 4,11 3,142, 52,82,137,0,0,0, 
170,85,0,0,0,-1 

350 DATAO,0,0,119,68,116,20,119,0,0,0,119, 
85,87,86,117,0,0,0,112,64,96,64,112 

360 DATAO,0,0,206,170,206/170,202,0,0,0,23 
8/136,236,40,238,0,0,0,224,128,224,32, 
224,-1 

370 DATA0,0,0,206,170,202,170,206,0,0,0,13 
9,218,171,138,139,0,0,0,56,160,56,136, 
56 

380 PRINT" {CLR} {RED) {RVS} BENVENUTI A CYLON 
ZAP" 

390 PRINT"{RVS}AVETE UNA BASE CHIAMATA ALP 
HA” :PRINT 

400 PRINT"(RVS}{ CYN}LA VOSTRA MISSIONE E 1 
DI PROTEGGERE" SPRINT* 1 {RVS} IL REATTORE 
NUCLEARE " 

410 PRINT"{RVS}{PUR}DAI GUERRIERI KAMIKAZE 
DELLE STELLE." 

420 PRINT"{RVS){GIU 1 }[GRN}AVETE 4 LASER CO 
NT ROLLATI DAL JOYSTICK 1 ' 

430 PRINT"{RVS}{BLU}AVETE ANCHE UNA BOMBA 
INTELLIGENTE{ 6 SPAZI}LANCIATA CON IL 
TASTO FIRE" 

440 PRINT"{RVS}{GIU 1 }{YÉL}E 1 SUFFICIENTE P 
UNTARE IL LASER E{ 7 SPAZI}SPARERÀ 1 AU 
TOMATICAMENTE" 

450 GOSUB50D 

460 PRINT"{CLR}{PUR}[GIU*}{RVS}I GUERRIERI 
SARANNO SEMPRE PIU* VELOCI" 

470 PRINT"{RVS}{GIU 1 }{YEL}UNA BASE ED UNA 
BOMBA OMAGGIO A 60 PUNTI" 

480 PRINTMbLU] {GIU‘ } ( 9 SPASI}{RVS} BUONA 
FORTUNA":GOSUB500 :RETURN 

490 GOTO65535 
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50 0 a$- ,1 (rvs] m 
510 FORL“1TOl000 
52 0 PRINT 11 { HOME} n 

530 PRItfTTAB(2) h$; "(CYNt! 13 GIU')PREMERE 
RETURN PER CONTINUARE” 

540 GETR$:IFR$=CHR$(13)THENRETURN 
550 FORI-1T0333 ?NEXT 

560 IFA?-" {RVS} T 'THENA$ : = 11 (OFF} " : GOTQ5 80 
5 70 IFA$ = " {OFF} 11 THENA$ - 11 {RVS} " ; GOTO5 SO 
580 NEXTL 

590 A$^"!RED}*** *[ 3 SPASI}* *{ 4 SPAZI} 
***{ 2 SPAZI}*! 2 SPASI}* H :X=LEN(A$) : Z 
{GIU 1 }":GOSUB?l0 

600 A$ = n *( 4 SPAZI}* *{ 2 SPAZI}* 

! 4 SPAZI}* *{ 2 SPAZI}** *”:X-LEN(A$) 
iZ$ = u { 2 GIU'}"iGOSUB7ì0 

610 A$ = H *{ 5 SPAZI}*{ 3 SPAZI}*{ 4 SPAZI} 

* *{ 2 SPAZI}* * * 11 : X=LEN ( A3 ) : Z S - fl 
{ 3 GIU' } 11 :GOSUB71 0 

611 A?="*{ 5 SPAZI}*! 3 SPAZI}*! 4 SPAZI] 

* *{ 2 SPAZI}* * * 11 : X= LEU ( A$ ) : Z$ = 1f 
{ 4 GIU *} 11 :GOSUB7l0 

620 A$ = "***{ 3 SPAZI}*! 3 SPAZI}*** 

t 2 SPAZI}***! 2 SPAZI}*! 2 SPAZI}* 11 
X = LEK[A$) ; Z $ = ” { 5 GIU r }":GOSUB710 
630 A$="{YEL}{ 2 SPASI}***! 2 SPAZI}*** 

[ 2 SPAZI}***! 2 SPAZI}* *{ 2 SPAZI} 11 : 
X = LEN ( A$) : Z$- ,f { B GIU 1 } " : GOSUB71 0 
640 A3 = 11 ! 4 SPAZI}*! 2 SPAZI}* * 

[ 2 SPAZI}* *! 2 SPAZI}* *{ 3 SPAZI} 11 : 
X=LEN{A$) S Z$- n { 9 GIU T } 11 :GOSUB71 0 
650 A$ = 11 f 3 SPAZI}*! 3 SPAZI}*** 

{ 2 SPAZI}***! 2 SPAZI)* *t 3 SPAZI} 11 : 
X=LEN(AS):Z3="! 10 GIU*}":GOSUB710 
660 A$= 1 M 2 SPAZI}*! 4 SPAZI}* * 

! 2 SPAZI}*! 10 SPAZI}”:X=LEN[A$):Z3=" 
! 11 GIU 1 } Ir : GGSUB71 0 
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670 &$="{ 2 SPAZI}***{ 2 SPAZI)* * 

l 2 SPAZI]*{ 4 SPAZI)* *{ 2 SPAZI)"tX= 
LEN{A$ ) ; Z $ = IT { 12 GIU 1 ) " ;GOSUB71 0 
680 PRINT:PRINT 
700 GOTOl 70 

710 5-54272 

711 PQKE54 2 96,1 5 :POKE54277,1 8:POKE54278,2 
40 

712 POKE 54276,33 

72 0 FORI-1TGLEN(A$)-POKE54273,1 + 4 0 
721 PRINT h {HOMEHGIU' H o DES ) " Z$ ;SPC {X) LE 
FT$(AS|I)iPOKE54272,(1*2)+180 
730 X-X-ì;MEXT:FQRG-15TO0STEP-1:FQRE54296, 
G:NEXT:POKES+4,16 

735 FORE=STGS+28:POKEE,0 :NEXT:RETURN 
750 FORA=49152T049453 
760 READD 
770 POKÉA,□ 

780 NEXT 
790 RETURN 

8 00 DATAI 69,1 2,1 41 , 33,208, 169,1 47,32,21 0,2 
5 5, 1 62,8, 1 60,16, 32,24 0,2 55,1 69 F 18,32 
810 DATA210,255,169 

8 20 DATAI 6 9,32,21 0,2 55 F 1 69,127,32, 21 0,2 55, 

1 69,1 4 6,32,21 0,2 5 5, 1 69,32,32,21 0 
825 DATA 255,169,38,32 

830 DATA210,255,169,169,32,210,255, ì 69,127 
,32,210,255,24,162 F 9,160,15,32 
835 DATA 240,255,169,169 

840 DATA32,210,255,169,160,162,5,32,210,25 
5,202,224,0,208,248,169,127 
845 DATA 32,210,255,24 

8 50 DATAI 62,10,1 60,1 5, 32,240,255,169,146, 3 
2,210,255,169,127,32,210,255 
855 DATA 169,18,32,210,255 
86 0 DATAI 6 9, 160,1 62,5,32,21 0,255 F 2 02, 2 24,0 
,208,248,169,146,32,210,255 
865 DATA 169,169,32,210,255 
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870 DATA24,162,11,160,15,32,240,255,169,32 
, 32,21 0,255,169,1 8,32,21 0 
875 DATA255,169,160,162,5,32 
880 DATA210,255,202,224,0,208,248,169,146, 
32,210,255,169,32,32,210,255,24 
885 DATA 24,162,11,160,7 

890 DATA32,240,255,169,18,32,210,255,24,16 
2,12,160,15,32,240,255,169,169 
895 DATA 32,210,255,169 

900 DATAI 60,162,5,32,210,255,202,224,0,208 
,248,169,127,32,210,255,24 
905 DATA 162,13,160,15,32,240 
910 DATA255,169,146,32,210,255,169,127,32, 

210.2 SS,169,18,32,210,255 
915 DATA 169,160,162,5,32,210 

920 DATA2 55, 202,224,0,208,248,1 69,1 46,32,2 
1 0,25 5, 169,1 69,32,21 0,255,24 
925 DATA 1 69,1 46,32,21 0 

93 0 DATA2 5S,24,162,1 4,1 60,1 6,32,240,255,16 

9.127.32.210.2 55,169,1 69,32 
935 DATA 210,255,169,32,32 

940 DATA21 0,255,169,1 27,32,21 0,255,1 69,1 69 
,32,210,255,24,96 
1000 RESTORE:CLR 

1 060 DEFFBA(A)=INT(HND(1)*X+A) STT=1482 
1 070 POKE53272,(PEEK(53272)ABD240)+1 2 
1 080 B1 =1042:N2“1922:tJ3=14 64;N4 = l 502 :V1 =36 
876 

1 090 CS = 53281 :C=S4272:W1 = 30:W2=20:W3=1 0:W4 
=5‘W5=l 

1100 Al 5 = "D. . " :A2$ = "U.. 11 :A3$="D,.":A4$=”C. 
. 11 : A5$="0, 

1110 POKECS,1 :PRIHT" {CLR}"SGOT02190 
1 1 20 BASE=3:Sl=1:S2 = 1:S3 = 1sS4 = l:BOM=3:5C=0 

1130 POKECS,12:X=15:Y=1 Sl = 40 
1140 PRIHT”{CLR}{WHT}":POKECS,8 
1150 GOSUB1 450 
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1 1 60 PRINT" {HOME} {WHT} PUNTI"SC: PRINT 11 

{HOME) {GIU 1 ) BASI "BA: PRINT" { WHT } BOMBE 
"BO 

7170 J0 = 7 5-(PEEK{56321 )ÀKfDl 5) 

1180 G=42:FB-(PEEK[56321)ANDl6) 

1190 POKETT,102 
1 20 0 POKETT+C,INT[PHD (V) *7 + 1 ) 

1210 IFJ0-1 THENl 510 
7220 IFJ0 = 2 THENl570 
1 230 IFJ0-4 THENl630 
1 240 IFJ0 =8 THENl690 
1250 IFFB-0ANDBQM> 0THEN2 590 
1260 Al=FNA(1) 

1270 A2=FNA[2) 

1290 a3=FNA[3) 

1290 a4=FNA[4) 

1 300 IFAl=1ANDS1<>0THENS1 -0 : GOSUB268Q 
1310 IFA2 = 2ANDS 2< >0THENS2-0 : GOSUB268Q 
1 320 IFA3 = 3ANDS300THENS3=0: GOSUB2680 
1 330 IFA4=4ANDS4<>0THENS4 = 0 * GOSUB2680 
1 340 IFSl=0ANDPEEK(N1+ 40) <>102THENN1 = N1 +1: 

POKENl+C,4:PQKENl,40:POKENl-1,32 
1 350 IFPEEK(Ni+40)=102THENGOSUB2 0 50 
1 360 IFS2 = QANDPEEK(N2-4 0)<>102THENN2=N2- 11 
POKEN2 +C, 3 ;POKEN2 r 3 7:POKEN2+1,32 
1 370 IFPEEK{N2-40)=102THENGOSUB2050 
1380 IFS3=GANDFEEK(N3+Ì ) <>102THENN3=M3+Y:P 
OKEN3+C,5:POKEN3,39 :POKEN3-Y,32 
1390 IFPEEK(N3+1)-102THENGOSUB2O5O 
1400 IFS4=0ANDPEEK(N4-1)O102THENN4-N4-Y:P 
GKEN4+C, 6 :FQKEN4,38:POKEN4+Y, 3 2 
1 410 IFPEEK[N4- 7}=102THENGOSUB2050 
7420 IFBASE=0THENGOTO2130 
7 430 IFSC>50THENJ£=4 
1440 GOTO!160 

1 450 PRINT 1 ' (RED) ":SYS4 91 52 iPOKECS, 1 1 
1 460 POKEl 362+C,1 :POKEl 362,33:POKEl 602+C,1 
:POKEl 602,36;POKEl 479+C,1 :POKEl 479,34 
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1470 POKEl435+C,1iPOKEl485,35 
1 4 30 PQKETT-1,102:POKETT+1 ,102 :PGKETT-40,1 
02 ;FOKETT+4 0,102 

1 490 POKETT-1-È-C , 1 iPGKETT+1+C, 1 :POKETT-4G+C 
,1 :POKETT+4 G+C,1 
1500 RETURN 

1510 POKE542 96,15 ;POKE54273,33;POKE54272,1 
33 :PQKE5 4 2 77, 50iPOKE54 2 7 8,120 
1520 POKE54276,129 
1530 FORE=l362T01042STEP-40 
1 540 IFPEEK(F-40)<>4GTHENPOKEF+C,1:PQKEF,4 
1 :FORT=l T05 :!STEXTi POKEF f 32 :NEXT 
1 550 IFPEEK(F-4 0)=40THENPQKENl+C,2:P0KEN1 , 

42 :GOSUBl830:PGKEN1,32 :Ni=1 042 :S1 -1 
1 560 PQKE54 2 96,0 :PQKEl 362,33:GOTOl260 
1570 POKE54296,15:POKE54273,33:PQKE54272,1 
3 3 :POKE54 277, 50:POKE54278,120 
1530 POKE5427tì f 129 
1590 FORE-1602TO1944STEP40 

1 60 0 IFPEEK(F+4 0]<>37THENPOKEF+C,1:PQKEF,4 

1 :FORT=1T05:MEXT:POKEF ,32:MEXT 

1610 IFPEEK{F+ 4 0)=37THENPOKE2+C ^ 2 ; POKER2,4 

2 :GOSUBl83G:POKEN2,32:N2^1922tS2=l-40 

1 620 POKE54 2 96,0 :POKEl 602,36?GOTOÌ 260 
1 630 POKE54296,1 5:POKE54273,33 :POKE54272,1 
33:POKE54277,50 :POKE54278,120 
1640 POKE54276,129 
1650 FORF-1479T01464STEP-1 
1 660 IFPEEK(F-1)< >3 9THENPOKEF+C , 1 :POKEF,43 
:FORT=1TO 5 : NE XT:POKEF,32:NEXT 
1670 IFPEEK{F-1)=39THENPOKKN3+C,2;PQKEN3,4 
2:GOSUBlB3G:PGKEN3,32 ìN 3=1464:S3=1 
1 680 POKE54 2 96,0:POKEl 479,34 : GOTO 1 260 
1690 FOKE54 296,1 5:POKE54273,33:PQKE54272,1 
33:POKE54277,50iPOKE5427B,120 
1700 POKE54276,129 
1710 FQRF"148STO1502 

1 720 IFPEEK[F+l)<>38THENPGKEF+C, 1 :POKEF,4 3 
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:FGRT=1T05:NEXT ì POKEF,32 :NEXT 
1 730 IFFEEK(F+1)=38THENPOKEN4+C,2 ;PQKEN4,4 
2:GOSUBl330:POKEN4,32:«4-1 502;S4=1 
1 74 0 POKE54 2 96,0 :POKEl 485,35iGOTGl2 60 
1 745 FORSG = 54272TO54272-h28:PQKES0, Q:NEXT 
1 750 POKE54 2 96, 1 5;POKE54277, 53 :POKE54278,6 
9:POKE54276,33 

1 770 RESTOSE:FORGB = lTOT 2 :READHA,LA,DU:POKE 
54 273,HA : POKE 54 2 72,LA 
1780 PORTAITODU:NEXTT 

1 790 NÉXTGB:FORS0=54272TO54272+28 jPOKESO,0 
; «EXT 

1300 RETURN 

1 81 0 DATA21 7,200,213,200,223,200,227,100,2 
34,100,230,200 

1820 DATA227,100,234,100,230,200,223,200,2 
27,200,2]7,200,213,300,-1 
1830 POKE54296,15:POKE54277,53:POKE54278,6 
7 :POKE54 2 76,1 29 

1840 POKE54272,200:POKE54273,33 
1850 FORESI5TO0STEP-1 
1 860 POKE54296,L 
1 870 NEXT:POKE542 76,0 
1880 SC-SC+1 

1390 IFSC=30THE«X=lNT(X/2):Y=2 
1 900 IFSC=50THENX= 4:I = 30:BOM-BOM+l 
1910 IFSC=60ORSC=11GORSC=l50THENGOTO1930 
1920 RETURN 

1930 PRINT"{CLR}{ 10 GIU'H 10 SPAZI}BONUS 

IT , 

t 

1940 PRINT" BASE - BQMBA":L=0 
1 950 POKE54 296,1 5:POK£54277,50 :POKE54278, 1 
67:POKE54276,17 
1960 FORT-lTOlO 

1 970 POKE54272,230:POKE54273,33 

1980 NEXT 

1990 FORT=1TGl0 

2000 POKE54272,1 80lPOKE542 73,28 
160 




Giochi da sala giochi 


2010 NEXT 

2020 IFL<6THENL-L+1:G0T01950 
2 03 0 FORD=54272T054272+28 :POKED f 0 :NEXT 
2040 BOM-BOM+1 :BA=BA+1 :8C=SC+5 :PRINT" {CLR) 
"iGOSUBl450 ;GOTOl390 

2 0 50 POKE54296,1 4 :Q1 —1 4S2;Q2-1 4 84 :Q3 = 1 52 2; 
Q4-1 52 4;K-0:Q5=QV-41 ;Q6-Q3+41 :Q7=Q1+3 
9 

2060 Q8 = 1 526:POKE54277,44:POKE 54 2 78, 56 :POK 
E54276i129 

2070 PGKE54272,200:FOKE54273,34:KK-8 
2080 FGR3=15TO0STEP-2 

2090 POKE54296 T Z:GOSUB226Q:NEXT:POKECS,8 :P 
OKE54276 jr 0 

2100 Ni s l042:S1=1:N2 = 1922:S2=1;N3=1464;S3= 
1:N4=1502:S4=1 ì PRI NT" {CLR] 11 
21 1 0 BASE=BASE-1 : IFBASE<>0THENGOSUBl450 
2120 RETURN 
2130 FRI NT ,h {CLR) " 

2140 IFSC->W1THENA5$=A4$:A4$-A3$:A3$-A2$ 

2150 IFSC->WlTHENA2$ = Al 5:W5=W4:W4-W3;W3=W2 
:W2=W1:W1=SC:GQT02730 

2160 IFSC=>W3ANOSC<W2THENA5$=A4S:A4$=A3$:W 
5-W4:W4=W3:W3=SC;GOT02 750 

21 70 IF$C = >W4AN[>SC<W3THENA5$=A4$:W5-W4:W4- 

SC:G0T0276Q 

2180 IFSC=>WSANDSC<W4tHÉNW5=SC: GOTO2770 
2190 GOSUB251G:PRINT"{HOME}{BLK} 

{ 21 GIU 1 }( 6 SPAZI}PER GIOCARE PREMI 
{RVS}ì BLK }S W 

2200 GETZ$:IFZ$ = ,,M THENFORCC = 5531 2T05 531 5;P 
OKECC,INT(RND{1)*7+1):NEXT 
2210 POKE561 65 ,INT(RND(1)*7 + 1) 

22 2 0 IFZ$=' M1 THEN2 2 00 
2230 IFZ$- ,f S"THENl 1 20 ■ 

22 4 0 IFZ$ = "N"THENPRINTMCLRHBLU}":POKECS, 
27:END 

2250 GOTO2190 
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2260 K=K+1:M=41:N=40;Q=39;R-INT(RND(1)*7+1 

) 

2270 IFK>3ANDK<11OTHENPOKECS r KK:KK>KK+31 
2280 POKEQl f G:POKEQ2,G:POKEQ3,G:POKEQ4 f G:P 
OKEQ5 f G:POKEQ6,G:POKEQ7,G:PGKEQS,G 
2290 POKEQl+C,R:POKEQ2+C,INT(RWD(1 ) *7+1):P 
OKEQ3+C f R:POKEQ4+C f INT(RND{1)*7 + 1) 
2300 POKEQ5+C ,R:POKEQ6+C t INT(RND f1) *7+1 ) :P 
OKEQ7+C f RIPOKEQ8+C f INT(RND(1) *7 + 1) 
2310 FORTUITO!0:NEXT 
2 32 0 IF K> 3THENG- 4 6 ; FRI NT 1 " {CLP} " 

2 330 IFK<BTHENQ1=Q1-OiQ2=Q2-M:Q3=Q3+0:Q4*0 
4+M:Q5=Q5-N:Q6-Q6+N:Q7=Q7-1:Q8-Q8+1 
2340 RETURN 

2350 PRINT"{CLR}": RETURN 

2360 PRINT* 1 ! 3 GIU * } " : CH= 1 1 60:E=1 

2370 J0= 15-[PEEK(56321)ÀNDl5) 

2380 FB^PEEK[56321)ANDl6 
2390 IFJ0=8THENE=E+] 

2400 IFJ0=4THENE=E-1 
2410 IFE= r OTHENE = 26 
2420 IFE=27THENE=1 
2430 POKÉCH,EìPOKECH+C, 7 
2440 FORT=lTOl 00:NEXT 
2450 POKECH+C,1 

2460 IFFB^O ANDCH-1160THENN1$-CHR$(E+64):C 
H=CH+1JE=1 :GOT02 370 

2 4 70 IFFB”0ANDCH“1161THENN2 $-CHR$(E+64):CH 
=CH+1:E=1 : GOTO 2 3 70 

2480 IFFB^O ANDCH-1162THENN3$‘CHR$(E+64) :C 
H=CH+1:E = 32 : GOTO2 3 70 

2490 IFCH=1163THENN5$=N1$+N2$+N3$:RETURN 
2500 GOTO2370 
2510 POKE53281 , 1 

2520 PRINT" { CLR} { 2 SPASI} {BLK]( 7 SPAZI) 
EROI DI CYLQN SAP 11 * PRINT ; PRINT" { RED ) 

{ 8 SPAZI}! MIGLIORI 5 PUNTEGGI(OFF}" 
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2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 
261 0 
2620 
2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 


PRINT'MHGME} {GIU 1 } { BLK] 1 
{ 14 SPAZI} "Al S - - - !t W1 
PRINT'^BLU} { 2 GIU 1 H 14 
, * " W2 

PRINT 1 * f GRN} { 2 GIU 1 } ( 14 
, . 11 W3 

PRINT 11 {PUR} { 2 GIU’ ] ( 1 4 
- J'W4 

PRINT"(RED} ( 2 GIU 1 } { 14 


4 GIU 1 ) 
SPAZI} ,f A2S". 
SPAZl}' r A3$", 
SPAZI }"A4S tl . 
SPAZI}"A5$ 11 . 


. ,"WS 
RETURN 

POKE54296,15ìPOKE54277, 43 :P0KE54278,7 
3 ;POKE54 2 76,1 29 
FORCO-127TQÈSTEP-Ì 7 


POKECS f CO 

PORTAITOl00:NEXT:NEXTCO:POKECS f 11 
IFSl=GTHENSC=SC+1rGOSUBl890iPOKENl ,32 
;N1 =1 042 -SI 

IFS2=0THENSC-SC+1:GO$UBl890 £P0KEN2,32 
:N2 = 1922iS2=l 

IFR 3-0THENSC=SC+1:GO£TJBl 890 £POKEN3,32 
:N3=1464iS3=1 

IFS4-0THENSC-SC+1:GOSUBl890:POKEN4,32 
:N4*l 50 2 ìS4 = 1 

FORSO-54272TO54272 + 28:POKESQ,0 :NEXT:B 
OM-BOM-1 £ GOTOl2 60 

5=54272 :FORE = STOS + 2 8 :POKEE,0 :NEXT 
PQKE54296, 15 :POKE54277, 51 :PQKE542 
78, 84 

PQKE 54 2 76, Ì7 :FORJ=lT040STEP4 ìPOKE 
54273,Jt FOKE54 2 72,255-J-25:NEXT 
FORTUITO 100 :NEXT:POKE54 2 76, 32:FORT 
= 1TO 50 :NEXT 

FORE=STOS+2 8 :POKEE,0 :NEXT£ RETURN 
PRINT 11 {NOME}NUMERO 1 LE TUE INIZIALI” 
tGOSUBI 745:GOSUB2360:Al$=N5$;G0T02 ì 90 
PRINT 11 { HOME} NUMERO 2 LE TUE INIZIALI 1 ' 
:GOSUBl 745:GOSUB2360 :A2$=N5$ ìGOTO2190 
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2 750 PRINT 11 {HOME)NUMERO 3 LE TUE INIZIALI n 
:GOSUBl74 5 :GOSUB2 360 :A3S =N5$; GOTO2190 

2 760 PRINT” {HOME}NUMERO 4 LE TUE INIZIALI" 
:GOSUBl 74 5 :GOSUB2 360:A4$=R5$; GOTO2190 

2770 FRINT” { HOME}NUMERO 5 LE TUE INIZIALI" 
;GOSUBl 74 5 :GOSUB2 360:A5$=N5$:GOTO2190 




5.4 

Laser Gunner 

Gary R. Lecompte — Versione per C64 di Philip L Nelson 


«Laser Gunner» è un gioco di azione. Il giocatore controlla un 
raggio laser che si muove verso l'alto e verso il basso sul Iato sinistro 
dello schermo, dietro un campo di forza, e spara contro le navi 
spaziali dei nemici invasori. Anche gli invasori possono sparare con 
il laser per aprire dei varchi nel campo di forza. Ogni centro inde¬ 
bolisce il campo, finché non viene creato un foro. Un centro attra¬ 
verso il foro provoca la fine del gioco. 

Laser Gunner è un esempio di animazione ottenuta senza l'im¬ 
piego di routine in linguaggio macchina. Lo svantaggio di questo 
tipo di programmazione è evidente: può essere animata solo una 
figura per volta con una data velocità. Tuttavia, adattando il gioco a 
questa limitazione, è ancora possibile renderlo un gioco dazione 
veloce ed appassionante. 

L'animazione e la posizione del raggio laser, così come la posi¬ 
zione degli invasori, sono controllate dalle routine di posiziona¬ 
mento. I valori della riga e della colonna vengono scritti con POKE 
nelle locazioni 214 e 211. Un'istruzione PRINT dopo la routine 
visualizza una stringa, cominciando dalla locazione stabilita dai 
valori della riga e della colonna. Cambiando questi valori, e visua¬ 
lizzando nuovamente la stringa, si ottiene l'effetto di animazio¬ 
ne, 

[cambiamenti nel campo di forza si ottengono con un PEEK della 
locazione in cui è stato realizzato un centro, determinando il carat¬ 
tere presente nella locazione e scrivendo con POKE il carattere 
successivo nella stessa locazione. 

Le esplosioni degli invasori sono ottenute con dei movimenti del 
cursore e con la visualizzazione di caratteri della stringa usata per 
realizzare gli invasori. 

Le routine del suono sono frammiste a quelle che controllano il 
laser e ie esplosioni. In questo modo si ha la contemporaneità 
dell'animazione e del suono. 

La posizione degli invasori ed il fuoco del laser vengono scelti 
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casualmente. In base al livello di difficoltà viene stabilito l'intervallo 
di tempo minimo fra uno sparo e l'altro degli invasori, II tempo 
effettivo intercorrente fra due spari successivi è sempre variabi¬ 
le. 

Le stelle vengono create semplicemente con delle istruzioni 
POKE in determinate locazioni. 

Tutte le routine sono state scritte in ordine di importanza, con 
quelle più usate all'inizio. Ciò fa si che il programma sia il più veloce 
possìbile, in modo da aumentare la velocità dell'animazione. Le 
istruzioni REM dovrebbero veni re canee Nate, per ottenere un effet¬ 
to migliore. La chiave per rendere più veloce il programma è la 
semplicità: più sono brevi le istruzioni, maggiore è la velocità di 
esecuzione. 

Forme diverse 

È possibile cambiare la forma delle astronavi. Le linee 85 e 86 
contengono le istruzioni che ne creano la forma. Per visualizzare le 
vostre astronavi potete utilizzare tutti i simboli della tastiera del 
C64, Scegliete i caratteri che desiderate e sostituiteli ai caratteri che 
definiscono le stringhe IN$, Gl $ e G2$ nelle linee 85 e 86. Ricor¬ 
date che per ottenere \ caratteri grafici a sinistra sui tasti dovete 
premere il tasto Commodore, non lo SHIFT 

LASER GUNNER 

5 POKE 532 80 f 0 : POKE53 201 ,0:GOSUB1 90:PRINT" 
{CLR}":G0T085 

1 0 POKERGW,XJPQKECOL*Y : PRINT" f SU} "? ; RETURN 
1 1 POKEROW, A: POKECOL, B : PRINT" ( SU} Tl ; : RETURN 
1 2 POKEROW, Z: POKECOL, BiPRINT 11 {SU} ,T ; : RETURN 

13 GOSUBl0 :PRINTG1S; 

14 GOTO38 

1 6 TT-TT+1; R= 1+INT(RNPf1)*10) :IFTT>TDTHENI 
FR=10GOTO43 

13 IFPEEK(197)=6THEN29 
19 IFPEEK(197)=5THES23 
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20 IFPEEK (197) = 3THEN2 6 

21 GOTO!6 

23 X=X-1:IFX<lTHENX=1 

24 GOSUBl0 :PRINTG1$ ; * GOTO! 6 

26 X=X+1:IFX>21THENX-21 

27 GOSUBl 0 : PRINTG2$ j i GOTOl 6 

29 GOSUBl 80 

30 X=X+Ì: Y = 3:GOSUBl0:FORI-lTOl35STEP5:PRIN 
T"(PUR}>"; :NEXT: : GOSUBl 0 

31 FORI = 1 T037 : P RI NT 11 11 ; : NEXT : X-X- 1 : Y=G 

33 IFX+1=ATHEN60 

34 XFX+1=A+1THEK60 

35 IFX+1-A+2THENÈ0 
3 6 GOTOl 6 

33 A=1+INT(RHD{1)*21};TFA< 3THENA-3 
39 IFA>19THENA=19 
41 GOSUBl1:PRINTIN$:GOTOl6 

43 GOSUBl70:3=A+1 :B*B-1sGOSUBl2: FORICITQ72 
STEP2:PRINT M { RED}-( 2 SIN}";;NEXT 
45 PSINT"lDES)fSU}NÌ 2 GIU'}{SIN)M rt :GOSUBl 
2 : FORI -1TO36 : PRI NT" { 2 SIN} 11 ;7tIEXT :PRI 
NT ,r {DES}{SU} ( 2 GIU 1 } {SIN} "ìB-B+1 
47 HT=SR+{(2-1) *40) :RD-PEEK(HT) 

4B IFRD=160THENRN = 1ÌG0T057 

49 IFRD=231THENRN-2:G0T057 

50 IFRD=2 3 4THENRN"3 !GOT05 7 

51 IFRD=246THENRN=4:G0T057 

52 IFRD=97THENRN-5 : GOTO5 7 

53 IFRD=117THENRN-6:G0T057 

54 IFRD-116THENRN-7;GOTO57 

55 IFRD-101THENRN~8:G0T057 

56 IFRD= 32THENRN-S;GOTO68 

5 7 FORICI TORN : RE ADFEi NEXT :POKEHT,FE:RESTOR 
E:GOTOl6 

58 DATA 231,234,246,97,117,116,101,32 
60 GOSUBl1 SPRINT"{RED}[ 2 SIN}-{SU){YEL} + 

{ 2 GIU 1 } { 3 SINHGIU’H 2 SIN} [<*>} 
{GIU' } {RVS}£'* 
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61 F0ftl=1T02O:NEXT:GOSUBl1 :PRINT"{ 2 SIN} 

{SU} { 2 CIUM! 3 SINHGIU'H 2 SIN} 

EgiuM " 

62 GOSUBll:PRINT"{ 2 SU}(SIN}£( 2 GIU T } 

{ 3 SIN}{RED}M{YEL}t{ 2 GIU'H 3 SIN} 
{YEL}-{GIU' }{SIN}ì GIU 1 }{SIN}" 

63 FORI = 1 TO20 :NEXT: GOSURII;PRINT” { 2 SU} 
{SIN} { 2 GIU 1 }{ 3 SIN}{ 2 SPAZI} 

{ 2 GIU'H 3 SIN) {GIU 1 }{SIN}{GIU 1 } 
{SIN}":GOSUBl60 

64 FORI-1T020:NEXT 

65 GOSUBl 1 :PRINT" {SIN} {GIU 1 } {SIN}{GIU f } 
(SIN}(GIU 1 }";GOSUB77 

67 SC=SC+1:TT=0:GOTO38 
6 8 FORI = 1 TOSO 0 :NEXT 

70 PRINT"{CLR}{WHT}{ 3 GIU’H 6 SPAZI}HAI 
COLF ITO"; SC;"INVASORI":GOSUBl70 :GOSUBl 7 
0 :GOSUBl60 

71 GOSUBl60 :GOSUBl6O:GOS0Bl60:PRINT" 

{ 3 GIU'H 9 SPAZI} VUOI RIPROVARE? 

{ 3 SPAZI}” 

72 GOSUBl70:GOSUB160iGETC$:IFC$=""THEN72 

73 IFCS < > "S"ANDC$ <> "N*'THEN72 

74 IFC$-"N ,T THENPRINT" {CLR} ” : END 

75 SC~0:GOTOl23 

76 REM---CREAZIONE DELLE STELLE- 

77 SR-SR-2iP-46 

78 POKESR-H 5, F :POKESR+2 3 P P:POKESR+12 7,F: PO 
KESR+158, P :FOKESR+175,P;POKESR+226 r P 

79 PGKESR+330,P:PQKESR+46Q,P:POKESR+474,P; 
POKESR+ 3 90 ,P:POKESR+57 5 f P 

8 0 POKESR+60 5 F P:POKESR+62 8 , P:PQKESR+7Q 3,P: 

POKESR+71 5 r P:POKÉSR+730,P 
31 POKESR+8 0 6 r P:FOKESR+819,P:POKESR+337,P: 

POKESR+868,PtPOKESR+383,P 
3 2 POKESR+9 04,P:FOKESR+928,P:PQKESR+94 7, P: 

POKESR+964,P:POKESR+9 92, P 
«3 SR=SR+2 : RETURN 
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84 REM-INIZIALI2SA LE VARIABILI---- 

SS ROW=214:C0L=211:X=5:Y=.J XNS-"[YEL}{RVS} 
£{GXU'}{SIN}{RVS}-{OFF}{GIU 1 }{SIN}{<*>) 
TwhT}":B=39:G1$="{CYN}{RVS}V(OFF}{GIU 1 } 
{SIN}+{GIU’}{SIN){rvs}v{offT{giu*}{sin} 

Il 

86 G2$="{C¥N}{SU} (GIU 1 }fSIN]{RVS}V{OFF} 

{GIU 1 } {SINj + CGIU 1 } {SIN} { RVS } V{ OFF } " :SR = 

1 0 2 6 : M- 21 iI = RND [-T1) 

87 GOSUB77:G0TO91 

38 REM-ROUTINE DI POSIZIONAMENTO---- 

89 POKEFOW fM : POKECOL f Y ; PRINT " {SU} 11 f : RETURN 

90 REM------TITOLI------ 

91 m=M-I;GOSUB 89:PRINTGl$ ; 

92 IEM>7THEN91 

93 FORI-1T0200:NEXT* GOSUB89 

94 PRINT 11 {GIU 1 } { 2 DES}";:FORI-ITOTI0STEP1 
0 :PRINT”{GRN}> M ; SNEXT:PRINT"{RVS} LASER 

GUNNER {OFF}"; 

95 GOSUBl90 : PORI-1 TOT2QSTEP10 :PRINT">"; : NE 
XT 

96 GOSUB89 : PRINT' 1 {GIU 1 } { 2 DES}"; : FORI -1 TO 
11: PRINT" :NEXT; PRINT"{ 14 DES}"; 

97 FORI = TTOT 2:PRIKT" 11 NEXT : GOSUBl 60 
93 GOSUB89 ìM=M+1:PRINT"(GIU T }"G2$; 

99 IFM<12THEN98 

100 GOSUB8 9 : PRINT” {GIU 1 } { 2 DES} 11 ; ; FORI = 1 T 
02 00 ;NEXT 

1.01 FORI = 1 TOT 70STEP1 0 : PRI NT"{ RED} > " ; : NEXT : 

GOSUBl 70 : PRINT" {PUR}UN 11 ; 
ì 02 FORI = 1 TOT70STEPT 0;PRINT"{RED}>"; :NEXT: 
GOSUBl70 

103 GQSUB89;PRINT"{GIU 1 }{ 2 DESFORI = 1 T 
017:PRINT” "; :NEXT:PRINT"{ 2 DES}"j:FQ 
RI-1 TOT 7 

104 PRINT" ";:NEXT 

1 0 5 GOSUB89:M = M+1 :PRINT"{GIU 1 } M G2$; 
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106 IFMCT6THEN1 05 

107 GO £ OB 8 9 : P RINT"{GIU 1 } { 2 DESJ™; : FORI=1T 
O200;NEXT 

1 08 FOHI-ITOI 1 2STEP1 0 :PRINT" {PUR} > 11 ; :NEXT: 
GOSUBl70:PRINT”{YEL}GIOCO D'AZIONE”; 

109 FORI = 1 TOT 10STEP1 0 i PRINT 11 {PUR}>";;NEXT t 
GOSUBl 70 

110 GQ5UB8 9 : PRINT" £ GIU ' } { 2 DES }” ?; FORI = 1T 
01 2:PRINT" 11 ; :NEXT;PRINT" ( 14 DES} 11 ; 

HI FORICI TOT 3: PRINT" 11 j : NEXT 
1 1 2 GOSUB89:M=M+1 ; PRINT" {GIU * } "G2$; 

113 IFWK22THEN112 

114 GOSUB89:PRINT"{GIU 1 j{ 2 DES]:FQRI=1T 
02 00 :NEXT 

1 1 5 FORI-1TOSOSTEP1 0 ; PRI NT " { RED } > 11 ; JNEXT:G 
OSUBI 30 :PRINT"{CYN} {RVSf VUOI LE ISTRU 
ZIONI?1 OFF }”} 

1 1 6 FORI = 1 TO1 00 STERI 0 : PRINT” { RED }>"; : NEXT : 
GOSUBl60 

in GOSUB8 9 : PRINT” {GIU 1 H 2 DES } 11 ; : FORI = 1 T 
08 : PRINT” NEXT:PRINT"{ 20 DES}"; 

118 FORI = f TOl0 :PRINT” 11 NEXT 

119 REM--VUOI LE ISTRUZIONI?- 

1 20 GETCS :iFC$ = f,,, THENGOSUBl 70 :GOSUBl 70 :GOS 
UBI 70:GOSUBl60:GQTQl14 

121 IFC$ = ,I S* , THEN1 34 

122 REM-LIVELLO DI DIFFICOLTA 1 -- 

123 PRINT"{CLR}[YEL}{ 6 GIU'H 5 SPAZI} 
{RVS}£ 2 SPAZI]QUALE LIVELLO 

{ 4 SPAZI}(1-3) {OFF}" 

1 2 4 GOSUBl70:GETC$:IFC$="”THENl2 4 

125 C=VAL{C$):IFC>30RC<1THENl24 

126 PRINT" {CLR} {YEL} { 6 GIU'H 8 SPAZI} 
{RVS} PREMI 1 SPACE] PER COMINCIARE 
{OFF}” 

1 2 7 GOSUBl60:GETC$:IFC$-”"TRENI 27 
128 IFC-1THENTD“15 
12 9 IFC= 2 THE NTD~3 
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130 IFC-3THENTD=0 

131 REM.-CAMPO DI FORZA-- 

1 32 PRINT" (CLR) " : GOSUB?7 : PRI NT" {HOME} "; :FQ 
RI-0TQ2 3 :PRINTTAB(2)"{RVS}{GRN} {OFF}" 
jNEXT: GOTO!3 

1 33 REM--- ISTRUZIONI - 

134 PRINT"{CLR}(GIÙ 1 }[ 4 SPAZI){RVS}{CYN} 

SEI SU UNA NAVICELLA SPAZIALE 11 

135 PEINT"{GIU 1 } E SEI ATTACCATO DAGLI ALI 
ENI INVASORI" 

136 PRINT"{GIU 1 }{ 5 SPAZI)DEVI POSIZIONARE 

IL LASER 11 

137 PRINT"{ 4 SPAZI}E FARE FUOCO PER DISTR 
UGGERE" 

138 FRINT"{ U SPAZI}LA NAVE ALIENA" 

141 PRI NT 11 { 2 Girr } { 3 SPASI} SEI PROTETTO 

DA UN CAMPO DI FIRZA," 

142 FRI NT"{ 3 SPAZI}MA IL CAMPO DI FORZA E 
1 INDEBOLITO" 

143 PRINT"{ 7 SPAZI)DAI COLPI DEGLI INVASO 
Ri * 11 

144 PRINT"{ 2 GIU 1 )UN CENTRO IN UN BUCO FA 

FINIRE IL GIOCO," 

145 PRINT"{ 2 GIU*}{ 3 SPAZI}PER ANDARE IN 

SU-- — PREMI {RVS} F3 {OFF}" 

146 PRINT"{ 3 SPAZI}PER FARE FUOCO---- 

PREMI {RVS} F5 {OFF}" 

147 PRINT"{ 3 SPAZI}PER ANDARE IN GIU T -- 

PREMI (RVS) F? {OFF} 11 

148 PRINT"! 2 GXU'H 4 SPAZ I}{RVS} PREMI >S 
PACEC PER CONTINUARE{OFF}" 

149 GETC$:IFC$=""THENl 49 

150 GOTOl23 

155 REM------SUBROUTINE DEL SUONO-- 

160 POKEWl ,21 :POKEW2,129:FORZ-2QTOlSTEP-2 i 
POREHl,Z:POKEL1,Z 

1 61 POKEH2,INT(RND ( 1 ) *70) +3 :PQKEL2, Z: NEXT: 

' 171 











Giochi da safa giochi 


4 


POKEWl,0:POKEW2j0 :RETURN 
1 70 POKEW1,17:POKEW2 F 129:EORZ=35TOQSTEP-7: 

P0KEH1,Z:POKELl, Z :POKEL2 , Z 
1 71 POKEH2 , IITT(RND (1 } *70] :NEXT:POKEWl f 0:PO 
KEW2 f 0:RETURN 

130 POKEW1,21 :FORZ-1T03:FORZX=0TOlOOSTEPl5 
iPGKEHl ,ZX:POKELl, SX:NEXT;MEXT 
181 POKEWl,0 : RETURN 

190 POKE54296,15;POKE54 277,1 5 :PQKE54 29Ì,65 
:W1=54276:W2 = 54290:H1 =54273:Li^54272 
1 91 h2 = 54287:L2-54286:RETURN 
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6.1 

Editor 

per il linguaggio 
macchina: MLX 

Charles Brannon 


Tre dei giochi di questo capitolo sono scrìtti completamente in 
linguaggio macchina, L «Editor per il linguaggio macchina* renderà 
estremamente semplice digitare senza errori questi programmi. 

Vi ricordate ['ultima volta che avete digitato un lungo programma 
in linguaggio macchina? Avete scritto centinaia di istruzioni DATA, 
numeri e virgole. Ma senza avere la certezza di aver scritto tutto 
senza errori. L'avete riletto, controllato, avete provato a farlo girare 
senza successo, l'avete riletto e controllato ancora, fatto nuova- 
mente girar e senza ri uscir vi, ricontrollatofl listato... Frustrante, non 
è vero? 

Tuttavìa, fino ad ora era quello il modo migliore dì digitare i 
programmi in linguaggio macchina, A meno che state in grado di 
programmare in assembler e di lavorare in linguaggio macchina, è 
molto più facile digitare un programma in BASIC, che legga delle 
istruzioni DATA e scriva i numeri in memoria con dei POKE, 
Alcuni di questi programmi in BASIC usano un «checksom* (con¬ 
trollo per somma) per vedere se ì numeri digitati sono corretti. 11 
metodo piu semplice consiste nel controllare la somma di tutti i 
numeri contenuti nelle istruzioni DATA. Se commettete un errore, 
il checksum non sarà verificato. Qualche programmatore vi ha reso 
le cose ancora più facili, creando un checksum ogni dieci linee: in 
questo modo potete trovare facilmente gli errori, 

L'MLX è il modo più sicuro di digitare qualsiasi programma in 
linguaggio macchina senza errori. Vi permette di scrivere i numeri 
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in una forma simile alle istruzioni DATA del BASIC ed è in grado di 
controllare ciò che scrivete, linea per linea. Non permette che 
scriviate dei caratteri non ammessi quando dovete scrivere dei 
numeri e non permette che digitiate dei numeri maggiori di 255- 
Inoltre, non vi lascerà scrivere dei numeri sbagliati sulle linee sba* 
gliate. In breve, i'MLX renderà obsoleti gli altri tipi di controllo. 

Uso dei dischi 

In aggiunta, l'MLX è in grado di generare dei file su nastro o su 
disco, pronti da usare. Il computer legge il programma col comando 
LOAD, proprio come qualsiasi altro programma. In particolare: 
LOAD«NomedeJprogramma».1,1 (per il nastro) 
oppure 

LOAD<'NomedeÌprogramma* P 8,1 (per il disco). 

Per far girare il programma usate l'istruzione SYS, eh e trasferisce il 
controllo dal BASIC al linguaggio macchina. 

La necessità del comando SYS verrà espressamente specificata, 
dove necessario. 

Come usare l’MLX 

Digitate e registrate l'MLX (vi servirà in futuro). Quando volete 
scrivere un programma in linguaggio macchina, date il RUN 
all'MLX. Il programma vi chiederà due numeri: l'indirizzo iniziale e 
l'indirizzo finale. Piu sotto viene riportata una tabella che specifica 
queste informazioni per ciascuno dei giochi che usano l'MLX. 


Indirizzo iniziale e finale 


Gioco 

Indirizzo 

Indirizzo 

Comando 


iniziale 

finale 

per il RUN 

Munchmaze 

12288 

13956 

SYS12311 

La vendetta del 
Barone Rosso 

2049 

5817 

RUN oSYS2063 

Zuider Zee 

49152 

52040 



Dopo aver digitato l'indirizzo iniziale e l'indirizzo finale, 
potete cominciare ascrivere i dati sulle linee del listato. Ogni 
linea è costituita da sei numeri più il checksum, Se uno qua- 
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lunque dei dati digitati è errato, o se il checksum è errato, 
sentirete il cicalino del C64 ronzare e vi verrà chiesto di 
riscrivere la linea. Se la linea digitata è corretta, sentirete 
invece un campanello e potete continuare con la linea 
seguente. 

Un editor speciale 

Con l'MLX non potete usare il normale editor del Commodore 
64, Per esempio, l’MLX accetta come input solo dei numeri. Se 
dovete correggere un numero, premete il tasto <IN$T/DEL>; 
l'Intero numero verrà cancellato. Potete premere questo tasto 
quante volte è necessario per tornare all'inizio della linea. Dopo 
ciascun numero di tre cifre il computer scriverà automaticamente la 
virgola e passerà al numero seguente. Se digitate meno di tre cifre, 
potete premere la virgola, lo spazio o il tasto RETURN per passare ai 
numero che segue. Il checksum apparirà automaticamente in 
reverse sul video. 

Quando ho provato a usare l'MLX ho trovato estremamente 
semplice digitare lunghi listati. Grazie ai messaggi sonori non è 
nemmeno necessario guardare lo schermo, se siete bravi a scrivere 
a macchina. 

Quando avete finito di digitare il linguaggio macchina, suppo¬ 
nendo che riusciate a finire in una sola sessione, potete salvare 
l'intero programma, senza errori, su nastro o su disco, Basta seguire 
le istruzioni che vengono date sullo schermo. Se si verifica un 
errore durante la scrittura, probabilmente avete un disco difettoso 
o pieno, oppure avete commesso un errore nel digitare l'MLX (mi 
spiace, ma non può controllare sé stesso). 

Comandi di controllo 

E se non volete digitare tutto il programma in una sola volta? 
L'MLX vi permette di scriverne quanto volete, salvare quello che 
avete scritto e ricaricare il file dal nastroo dal disco quando volete 
continuare. L'MLX riconosce i pochi comandi che seguono; 
SHIFT-S: SAVE (Registra) 

SHIFT-L; LO AD (Carica) 

5HIFT-N: NEW ADDRESS (Nuovo indirizzo) 

SHIFT-D: DISPLAY [Visualizza) 
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Tenete lo SHIFT premuto, mentre premete il tasto appropriato. 
Abbandonerete la linea che stavate digitando, perciò vi raccoman¬ 
do di farto all'inizio di una nuova linea. Usate il comando SAVE per 
registrare ciò che avete scritto. Il file verrà scritto su nastro o su 
disco come se fosse completo, ma, naturalmente, il programma 
non funzionerà finché non avete finito di scriverlo. Ricordate l'in¬ 
dirizzo al quale vi fermate, la volta seguente, quando usate l'MLX, 
rispondete a tutte le richieste come avete fatto la prima volta, poi 
inserite il nastro o il disco. Quando comparirà il primo numero di 
linea premete SHIFT-L per caricare il file in memoria. Poi usate il 
comando SHIFT-N per continuare dal punto in cui vi eravate fer¬ 
mati. 

Nuovo indirizzo e visualizzazione 

Dopo aver premuto SHIFT-N digitate l'indirizzo finale cui erava¬ 
te arrivati. La linea cambierà e potrete continuarea digitare il pro¬ 
gramma, Digitate sempre un nuovo indirizzo, che corrisponda ad 
uno dei numeri di linea del listato speciale, altrimenti il check-sum 
non sarà verificato. Potete anche usare il comando SHIFT-D per 
rivedere ciò che avete già digitato. Dopo aver dato il comando 
scrivete due indirizzi compresi nel campo dei numeri di linea del 
listato. Potete interrompere la visualizzazionedet listato in qualun¬ 
que momento, premendo un tasto qualsiasi. 

Qualche trucco 

I comandi speciali possono confondervi un po', ma se lavorate 
con l'MLX ne vedrete l'utilità. Per esempio, come fate se non vi 
ricordate dove siete arrivati? Usate il comando SHIFT-D per vedere 
il contenuto della memoria dall'inizio alla fine del programma. 
Quando vedete un blocco di 170, fermate il listato (premendo un 
tasto) e continuate a scrivere dove cominciano i 170, In alcuni 
programmi vi sono numerose sezioni contenenti dei 170, Per evi¬ 
tare di scrivere in queste sezioni, potete usare il comando SHIFT-N 
e passane oltre È blocchi di 170. Fate però attenzione: non dovete 
saltare niente di dò che dovete scrivere. 

Potete utilizzare i comandi 5HIFT-S e 5H3FT-L per fare delle 
copie del gioco: col comando SHIFT-L caricate il programma dal 
nastro o dal disco, poi inserite un nuovo nastro o un disco e, col 
comando SH3FT-S, create una nuova copia, 
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Una veloce osservazione sui programmi registrati su nastro col 
comando SHIFT-S: quando ti caricate, il messaggio «FOUND No¬ 
ni ed e I Program ma a può apparire due volte. Il programma verrà 
comunque caricato regolarmente. 

3 programmatori troveranno l'MLX interessante, poiché protegge 
l'utente dagli errori, anche per la formattazione dello schermo. Ma 
la cosa più interessante è I uso delle routine dì Kernat per caricare e 
salvare dei blocchi di memoria. Basta eseguire il POKE dell'indiriz¬ 
zo iniziale (byte basso/byte alto) nelle locazioni 251 e 252 e l'in¬ 
dirizzo finale nelle locazioni 254 e 255. I codici di errore possono 
essere letti nella locazione 253 (un errore è indicato con un codice 
minore di dieci). 

Spero che l'MLX vi aiuti effettivamente a risparmiare fatica nel 
digitare i programmi. Poiché è stato collaudato con dei programmi 
reali, potete contare su di esso come valido aiuto per scrivere dei 
programmi in linguaggio macchina privi di errori. 

MLX 

1 00 PRINT" {CLR) (RED) ”;CHR$ (1 42) ;CHR$ {8} ; :P 
0KE53281 , 1 :FOKE532 80 ,1 
101 PQKE 788,52:REM DISABILITA RUN/STOP 
110 PRINT^RVSH 4 0 SPAZI}”; 

120 PRI NT" { RVS) { 15 SPAZI) (DES) {OFF} t<*>] 

£{RVS}{DES} {DES}{ 2 SPAZI H<*>J {OFF} 
T<*>] £{RVS)£(RVS} { 13 SPASI)”; 

130 PRINT^ÌRVSJI 15 SPAZI)(DES) [<G>]{DES) 

{ 2 DES) {OFP}£{RVS}£[<*>]{OFF}[<*>] 
(RVS}{ 13 spazi!" ; 

140 PRINT”(RVS){ 40 SPAZI}" 

150 V= 5 3 2 4 8 :POKE2 04 0,13 :POKE2 041,13:FORI=8 
3 2 TQ 8 9 4 :PGKEI, 255:NEXT:POKEV+27 r 3 
160 POKEV+21,3:FGKEV+39,2 :POKEV+4Q,2 :POKEV 
,144:POKEV+l,54:P0KEV+2,192 :POKEV+3,54 

170 POKEV+29,3 

1 SO FORI = 0TO23:READA:POKE679+I r A:POKEV+3 9, 

A: PO KEV+ 4 0 , A :NEXT 

18 5 DATAI 69,251 , 1 66, 2 54,1 64 ,2 55, 32,21 6, 2 55 
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,133,253,96 

187 DATAI 69,0,166,251,164,252,32,213,255,1 
33,253,96 

190 PQKEV+39,7 :PQKEV+4 0,7 

200 PRINT"{ 2 GIU 1 ){PUR]{BLK}UN INFALLIBIL 
E EDITOR DI LINGUAGGIO MAC-{ 4 GItV }" 
210 PRINT" l < 5>] { 2 SU} INDIRI ZZO DI FARTENE 
A{ 7 SPAZI][ 7 SIN}";:INPUTS;F=1~F;C$= 
CHR$ (31 +1 1 9*F} 

220 IFS < 256QR(S> 4 0960ANDS<4 91 52)ORS>5324?T 
HENGOSUB3 G00;G0T021 0 
225 PRINT:PRINT:FRINT 

230 PRINT"[<5>]{ 2 SU}INDIRIZZO DI FINE 

{ 7 SPAZI}( 7 SIN} M f:INPUTEiF=l-F:C$=C 
HR? (31+1 1 9 *F) 

240 IFE<2560R(E>40960ANDE<49152)ORE>53247T 
HENGOS UB 3 0 0 0 ; GOTO 2 30 

250 IFE<STHENPRINTC$ ; 11 {RVS} FINE < INIZIO Ir 
:GOSUBl000: GOTO 230 
260 PRINT;PRINT:PRINT 

300 PRINT* 1 {CLR} " ; CHR$ (14) :AD=5:PQKEV+21 ,0 
3 1 0 FRINTRIGHT$ ["0000"+MI D$ (STR$(AD) , 2) , 5) 
;"i"; ;F0RJ = 1 T06 

320 GG5UB57G:IFN=-1THENJ=J+N:GOTO320 
390 IFN--21ÌTHEN 71 0 
400 IFN=- 2Q4THEN 790 

410 IFN= - 2 G6THENPRINT : INPUT 1 M {GIU ! } DIGITA U 
N NUOVO{ 2 SPASI}INDIRIZZO";SS 
415 IFN=-2 G6THENIFZZ<SORZZ >ETHENPRTNT" 

{RVS}NON VALIDO 11 :GOSUBl 000:GOT041 0 
417 IFN=- 2 06THENAD = Z2:PRINT: GOTO310 
420 XF NO-196 THEN 480 

430 PRINT : INPUT" MOSTRA: DA" ; F:PRINT,"A"; : 
INPUTT 

440 IFF<SORF>EQRT<SORT>ETHENPRINT"ALMENO" ; 

S ; "{SIN} f E NON PIU' DI 11 ; E : GOT04 3 0 
450 FORI-FTQTSTEF6:PRINT:PRINTRIGHT$("0000 
"+MID8(STR$(I) ,2) ,5) ; " : 
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4 51 FORK=0TO5:N=PEEK(I+K) : PRINTRIGHTS ["00" 
+«1D$ (STR$ m ,2) , 3> ; 'V ? 

460 GETAS :IFA$>""THENPRINT ;PRINT:GOTQ31 0 
470 NEXTK:PRINTCHR5{20);:NEXTI i PRINT:PRINT 
:GGT0310 

480 IFN<0 THEN PRI NT : GOTO310 
490 A ( J}=N :NEXTJ 

500 CKSUM-AD-INT(AD/256) *256:FORI = 1T06tCKS 
UM~(CKSUM+A{1))AND255:NEXT 
510 PRINTCHRS(1 8} ? :GOSUB570:PRiNTCHR$(20) 

515 IFN=CKSUMTHEN530 

520 PRlNTtPRIMT*'LINEA ERRATA : RIPETERE" : P 
RlNT:GOStIBì 0'00:GOTO31 0 

530 GGSUB2000 

540 FORI = 1 T06;PQKEAD+1 -1,A(I) :NEXT:POKE542 
72,0:PQKE54 2 73,0 
550 AD-AD+6;IF AD<E THEN 310 
560 GOTO 710 
570 tl fc Q : Z*G 
580 PRINT" [<X>] 11 ; 

531 GETA$; IFA$ = ""THEN 5 81 

585 PRINTCHR$(20);:A=ASC(A$):IFA=130RA=440 
RA= 3 2 THE N 6 70 

590 IFA>1 2 8THENN=-* A : RETURN 
600 IFAO20 THEN 630 

610 GOSUB690 :1FI-1ANDT= 44THENN=-1 SPRINT" 
(SIN} {SIN}";: GOTO 690 
62 0 GOTO5 70 

630 IFA<48GRA>5 7THEN5 80 

640 PRINTA$; :N=N*1 O+A-48 

650 IFN>255 THEN A=20:GOSUBl000:GOTO60Q 

660 3 = 2+1 »IF3<3THEN580 

670 IFZ=OTHENGOSUB1000:GOT0570 

680 PRINT": RETURN 

690 SÌ=PEEK(2Q9) +2 56*PEEK(21 0)+PEEK(211) 

691 FORI = 1 T03:T=PEEK (S%-I) 

695 IFTO 4 4 ANETO 5 8THENFGKES%- I , 32 : NEXT 
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700 PRINTLEFT3("{ 3 SIN ì ",I- 1>?:RETURN 
710 PR1NT"{CLR}{RVS}* * * SAVE ***{ 3 GIU’} 

720 INPUTM GIU* } NOME DEL FILE ir ? F$ 

730 PRINT:PRINT" P2 GIU 1 }{RVS}T{OFF}APE 0 
{ RVS}D{OFF }ISCO: (T/D)" 

74 0 GETA$ : IFA$ <>"T"ANDA$ <> l, D ,l THEN740 
750 DV=1 - 7* (A$ = "D") : IFDV-8THENF$="0 ; IT -t-F$ 
760 OPEN 1 ,DV, 1,F$:PQKE252,S/256 :POKE251,S 
-PEEK(252)*256 

765 POKE2 55, E/2 56 :POKE2 54 ,E-PEEK(255)*2 56 
7 70 POKE2 53 ,10 :SYS 679:CLOSE1:IFPEEK(253)> 
90RPEEK {253 ) = 0THENFRINT IT {Gl U 1 }FATTO="; 
END 

7 80 PRINT 1 '{GIU 1 } ERRORE IN REGISTRAZIONE. 

RITENTA.":IFDV=1THEN7 2 0 
781 OPENl5,8,15 :INPUT#15 r DS,DS$:PRINTDS;DS 
3 :CLOSEl5 £ GOT072 0 

790 PRI NT " {CLR } {RVS} * * * LOAD ***{ 2 GIU 1 } 

IT 

800 INPUT" { 2 GlU f ì NOME DEL FILE IT ;F? 

810 PRINTtFRINT”{ 2 GIU 1 }{RVS}T{OFF}APE OR 
{RVS}D{OFF}ISCOl (T/D) M 

8 20 GETA3 :IFA$O ,t T ,t ANDA?O"D"THEN 820 
830 DV” 1 -7* (A$-"D ,T ) :IFDV-8THENF$ = "0; "+F$ 
840 OPEN ì,DV f 0,F$:POKE252 f S/2 56 :POKE25) f S 

-PEEK(252)*256 

8 50 POKE253,10:EYS 6 91 2CLOSEl 
860 IFPEEK(2 53) >9 OR PEEK(253)-0 THEN PRIN 
T:PRINT:GQT0310 

870 PRINT"{GIU 1 }ERRORE IN LETTURA, 

[ 2 SPAZI }RITENTA.{Gl U T }IFDV-1 THE N80 

0 

880 OPENl5,8,15:INPUT#15,DS,DS$:PRINTDS;DS 
$ :CLOSEl5 :GOTGSOO 
1000 REM RONZIO 

1 001 FOKE54 2 96,1 5:POKE54277,45 :POKE54278,1 
65 
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1 002 POKE54276, 33tPOKE 54273,6 :PGKE54272,5 

1 003 FORT-1T020 0 ;NEXT:POKE542 76 * 32 :P0KE54 2 

73,0:POKE54272,0 :RETURN 
2000 REM CAMPANELLO 

2 001 POKE542 96,ì5 :POKE54277,G:POKE5427B,24 

7 

2002 POKE 54276 r 17:POKE54 2 7 3 , 4 0 j POKE54 272, 
0 

2003 FORT=1TOl00 :NEXT:POKE54276,1 6:RETURN 
3000 PRINTC$; n {RVS}PAGINA ZERO E ROM NON S 

ONO PERMESSI 1T t GOTOl 000 






Munchmaze 

Gary E* Marsa — Versione par C6J di Gfegg Feele 


«Munchmazev è un veloce gioco d azione Poiché è scotto in 
linguaggio macchina , é necessario usare l'MLX per digitarlo senza 
errori 

Il mostro di «Munchmaze* corre all'interno del labirinto, lascian¬ 
do cadere dietro di sé delle briciole di pane. Voi vi muovete usando 
i tasti IJ, K ed M e dovete mangiare il maggior numero di briciole 
prima che il mostro vi raggiunga. Il gioco finisce quando venite 
raggiunti 0 quando arrivate a 10000 punti. 

Si può scegliere fra tre diverse velocità: bassa, media e alta, 
Entrambi i personaggi si muovono alla stessa velocità, ma il com¬ 
puter è più veloce nelle curve. Inoltre voi dovete cambiare dire¬ 
zione manualmente, il computer no, il computer va sempre a sini¬ 
stra, se è possibile: è utile ricordarlo quando cercate un posto per 
nascondervi temporaneamente. 

Cè anche un'altra piccola particolarità, A volte, quando \ due 
personaggi si stanno muovendo uno verso l'altro, il computer cam¬ 
bia improvvisamente direzione e la collisione non si verifica. Potete 
tirare un sospiro di sollievo e continuare a mangiare le briciole: 
avete avuto fortuna. 

LE labirinto di Munchmaze non viene creato sullo schermo, ma in 
un'altra area della RAM. Viene poi trasferito sullo schermo tutto 
insieme; c'è poi un'attesa di circa un secondo prima che l'azione 
cominci. Se per un motivo qualunque arrestate il gioco, poiete 
ricominciare scrìvendo SYS 12331 e premendo RETURN, 

Per digitare Munchmaze 

Poiché è scritto interamente in linguaggio macchina, occorre 
digitare il programma utilizzando 3'Editor per il linguaggio macchi¬ 
na: MIX, illustrato all'inizio de! capitolo (6.1), perii cui uso leggete 
attentamente te istruzioni. 

Ecco i dati necessari per digitare Munchmaze con l'MLX: 
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indirizzo iniziale; 12238 
indirizzo finale: 13956 

Una volta registrato Munchmaze su disco o su nastro la proce¬ 
dura per caricare il programma è: 

da disco, scrivete 
LQ AD" MUNCHMAZE",8,1 

da nastro, scrivete 
LOÀD" ",1,1 

Dopo aver caricato il programma in memoria scrivete SYS 12311 
per dare if RUN. 

MUNCHMAZE 

1 0 1 = 1 2288 :POKE53281 ,1 
20 READ A :IF A-256 THEN 3 5 
30 PGKE I f A:I=I+1:GOTO 20 
3 S SYS!2311 : END 

12288 DATA 20,4,10,0,88,178,187 
12296 DATA 40,171,84,73,41,58,158 
12304 DATA 49,48,52,56,0,0,0 
12312 DATA 234,234,169,21,141,24,208 
12320 DATA 169,0,141,96,10,141,97 
12328 DATA 10,169,147,32,210,255,169 
12336 DATA 7,162,0,157,0,216,157 
12344 DATA 0,217,157,0,218,157,0 
12352 DATA 219,232,208,241,169,120,141 
12360 DATA 229,51,169,52,141,230,51 
12368 DATA 162,31,169,5,32,220,51 
12376 DATA 169,0,141,98,10,141,99 
12384 DATA 10,133,162,24,165,161,105 
12392 DATA 2,133,166,165,161,197,166 
12400 DATA 208,250,169,147,32,210,255 
12408 DATA 169,0,162,0,157,0,216 
12416 DATA 157,0,217,157,0,218,157 
12424 DATA 0,219,232,203,241,32,168 
12432 DATA 51,162,39,169,160,157,39 
12440 DATA 4,157,151,7,202,208,247 
12448 DATA 169,80,133,168,169,4,133 
12456 DATA 169,162,21,160,0,169,160 
12464 DATA 145,168,160,38,145,168,32 
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1 2472 

DATA 

1 2480 

DATA 

1 2483 

DATA 

1 2496 

DATA 

1 2504 

DATA 

1 251 2 

DATA 

1 2520 

DATA, 

1 2 528 

DATA 

1 2 53 6 

DATA 

1 2544 

DATA 

1 2552 

DATA 

12560 

DATA 

1 2568 

DATA 

1 2576 

DATA 

1 2584 

DATA 

12592 

DATA 

1 2600 

DATA 

1 2608 

DATA 

1 261 6 

DATA 

1 2624 

DATA 

1 2632 

DATA 

1 2640 

DATA 

1 2648 

DATA 

12656 

DATA 

1 2 664 

DATA 

1 2672 

DATA 

1 2680 

DATA 

1 2688 

DATA 

1 2696 

DATA 

1 2704 

DATA 

1 271 2 

DATA 

1 2 72 0 

DATA 

1 2728 

DATA 

1 2 73 6 

DATA 

1 2 74 4 

DATA 

1 2752 

DATA 

1 2 760 

DATA 

ìtìb 



250,51 ,202,2 0 8,240,169,119 
1 41 ,229,51 ,169,53,141,230 
51 , 1 62,1 66,1 69,4,32,220 
51,162,0,169,32,157,0 
1 1 , 1 57,0, 1 2,1 57,0,1 3 
ì 57,0,1 4,232,208,241 , 169 
91 ,133,168,169,40,133,170 
1 69,1 1 ,1 33,169,1 33,1 71 , 1 62 
0,1 60,0,1 69,1 60,1 45,1 70 
200,192,39,208,249,24,165 
1 70,105, 4 0, 1 33,1 70,144,2 
230,171,232,224,23,208,229 
160,0,169,4,145,168,32 

151.224.165.143.41.3.133 
165,170,10,168,24,185,75 
52,1 01 , ! 68,1 33,1 80,1 85,76 

52.101.169.133.181.24.185 

75.52.101.180.133.170.185 
76,52,101,181,133,171,160 
0,177,170,201,160,208,18 

138,145,170,169,32,145,180 
165,170,133,168,165,ì 71,133 
169,76,251,48,232,138,41 
3,197,165,208,189,177,168 
170,169,32,145,168,224,4 
240,26,138,10,168,162,2 

56.165.168.249.75.52.133 

168.165.169.249.76.52.133 
169,202,208,238,76,251,48 
1 69, 1 3,1 41,229, 51,169, 54 

141,230,51,162,6,133,32 
220,51,32,228,255,208,251 
3 2,2 2 8,2 55,2 40, 2 51,201,81 
208,32,169,147,32,210,255 
169,0,162,0,157,0,216 
1 57,0,21 7,1 57,0, 21 8,1 57 
0,219,232,208,241,32,168 
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1 2768 

DATA 

ì 2776 

DATA 

1 2784 

DATA 

1 2792 

DATA 

1 2800 

DATA 

1 2808 

DATA 

1281 6 

DATA 

1 2824 

DATA 

1 2832 

DATA 

1 2840 

DATA 

1 2843 

DATA 

1 2356 

DATA 

1 2864 

DATA 

1 2 872 

DATA 

1 2880 

DATA 

1 288S 

DATA 

1 2896 

DATA 

1 2904 

DATA 

1 291 2 

DATA 

1 2920 

DATA 

1 2928 

data 

1 2936 

DATA 

1 2944 

DATA 

1 2952 

DATA 

1 2960 

DATA 

1 2968 

DATA 

1 2976 

DATA 

1 29S4 

DATA 

] 2992 

DATA 

1 3000 

DATA 

1 3008 

data 

1 301 6 

DATA 

1 3024 

DATA 

1 3032 

DATA 

1 3040 

DATA 

1 3048 

DATA 

1 3056 

DATA 


51.1 69,1 3,76,21 0,255,201 
49,48,211,201,52,16,207 
56,233,48,133,166,169,147 
32,21 0,255,1 69, 0,1 62,0 

157,0,216,157,0,217,157 
0,218,157,0,219,232,208 
241,162,0,139,0,11,157 
0,4,189,0,12,157,0 
5,189,0,13,157,0,6 
1 39,0,14,157,0,7,232 

208.229.32.1 68,51,24,165 
1 66,105,176,141,0,4,141 
38,4,24,165,162,105,60 

133,254,165,162,197,254,208 
250,169,81,133,168,133,180 

169.4.133.169.133.181.169 

1.133.254.162.2.134.165 

160,0,169,102,145,168,169 
0,133,162,166,165,138,10 
168,24,1$5,75,52,101,168 

133.170.185.76.52.101.169 
133,171,160,0,177,170,201 
1 60,208,9,202,1 38,41 , 3 

133,165,76,37,50,201,81 
208,3,76,4,51,169,102 

145.170.169.58.145.168.165 

170.133.168.165.171.133.169 

232.138.41.3.133.165.165 
254,240,8,160,0,132,254 

169,81,145,180,162,0,165 
197,221,83,52,240,8,232 
224,4,208,246,76,133,50 

138.10.168.24.185.75.52 

101.180.133.195.185.76.52 
101,181,133,196,160,0,177 
195,201,160,240,25,201,58 
208,3,32,6,52,160,0 


I 
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1 3064 

DATA 

1 3072 

DATA 

1 30 80 

DATA 

1 3088 

DATA 

ì 3096 

DATA 

1 31 04 

DATA 

13112 

DATA 

1 31 20 

DATA 

1 31 28 

DATA 

1 31 36 

DATA 

1 31 44 

DATA 

1 31 52 

DATA 

1 31 60 

DATA 

1 31 68 

DATA 

1 31 76 

DATA 

1 31 84 

data 

1 31 92 

DATA 

1 3200 

DATA 

1 3208 

DATA 

1 321 6 

DATA 

1 3224 

data 

1 3232 

DATA 

1 3240 

DATA 

1 3248 

DATA 

1 3256 

DATA 

1 3264 

DATA 

1 3272 

DATA 

1 3280 

DATA 

1 3288 

data 

1 32 96 

DATA 

1 3304 

data 

1 3312 

data 

1 3320 

data 

1 3328 

DATA 

1 3336 

DATA 

1 3344 

DATA 

1 3352 

DATA 

1 3360 

DATA 
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169.81.1 45,195, 1 69,32,145 

1 80,1 65,1 95,1 33,1 80,1 65,1 96 

133.181.165.162.197.166.208 

250.173.98.10.201.16.208 

61.173.99.1 0,201,39,200 
54,169,81,133,168,169,4 
133,169,162,0,160,0,177 

168.201.58.208.7.32.6 
52,169,32,145,168,200,192 

37.208.238.32.250.51.232 
224,21,208,228,162,0,1B9 
93,54,240,6, 1 57, 51 ,4 
232,208,245,76,127,51,76 
33,SO,169,102,145,170,169 

53.145.168.165.180.133.168 

165.181.133.169.56.165.168 
233,41,133,170,165,169,233 
0,133,171,169,240,133,166 

169.255.133.162.165.170.133 
180,165,171,133,181 ,169,0 
133,165,160,0,162,0,177 

130.221.87.52.240.5.232 

224.8.208.246.134.253.56 
169,7,229,253,170,189,87 

52.145.130.200.192.3.208 

224.24.165.180.105.40.133 

180.144.2.230.181.230.165 

165.165.201.3.208.203.165 
162,208,252,198,166,208,179 

162,0,1B9,110,52,240,6 

157.55.4.232.208.245.56 
173,98,10,237,96,10,141 
100,10,173,99,10,237,97 
10,13,100,10,240,17,144 
15,173,98,10,141,96,10 

173,99,10,141,97,10,32 
194,51,76,77,48,162,0 

189.95.52.240.6.157.6 
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1 3368 
1 3376 
1 3384 
1 3392 
1 3400 
1 3408 
1 341 6 
1 3424 
1 3432 
1 3440 
1 3443 
1 3456 
1 3464 
1 3472 
1 34 SO 
I 3488 
13496 
1 3504 
1 351 2 
1 3520 
1 3523 
1 3536 
1 3544 
1 3552 
1 3560 
1 3568 
1 3576 
1 3584 
1 3 592 
1 3600 
1 3608 
1 361 6 
1 3 624 
1 3632 
1 3640 
1 3648 
1 3656 
1 3664 


DATA 4,232 r 208,245,162,0,189 
DATA 104,52,240,6,157,22,4 
DATA 232,203,245,172,96,10,173 
DATA 97,10,32,145,179,32,221 
DATA 189,162,0,189,0,1,240 
DATA 6,157,27,4,232,208,245 
DATA 96 f 134,168,133,169,162,0 
DATA 160,0,189,13,54,240,10 
DATA 201,255,240,12,145,168,200 
DATA 232,208,241,32,250,51,232 
DATA 203,233,96,24,165,163,105 
DATA 40,133,168,144,2,230,169 
DATA 96,133,72,152,72,24,173 
DATA 98,10,105,2,141,98,10 
DATA 144,3,238,99,10,162,0 
DATA 181,168,72,232,224,8,208 
DATA 248,172,98,10,173,99,10 
DATA 32,145,179,32,221,189,162 
DATA 0,189,0,1,240,6,157 
DATA 12,4,232,208,245,162,8 
DATA 104,149,167,202,203,250,104 
DATA 168,104,170,96,234,234,234 
DATA 1,0,216,255,255,255,40 
DATA 0,37,33,34,36,160,32 
DATA 53,102,170,186,127,255,16 
DATA 21,14,20,9,58,32,48 
DATA 0,18,5,3,46,58,0 
DATA 170,160,134,137,142,133,160 
DATA 170,0,32,79,77,32,32 
DATA 78,80,99,80,32,79,99 
DATA 79,77,32,79,80,73,99 
DATA 99,99,77,79,80,32,79 
DATA 80,0,101,32,77,78,32 
DATA 103,32,103,32,101,32,101 
DATA 32,77,101,103,32,32,79 
DATA 76,100,101,103,32,101,103 
DATA 0,101,32,32,32,32,103 
DATA 32,103,32,101,32,101,32 
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i 


1 3672 

DATA 

1 3680 

DATA 

1 3638 

DATA 

1 3696 

DATA 

ì 3704 

DATA 

1 371 2 

DATA 

1 372 0 

DATA 

1 3728 

DATA 

1 3736 

DATA 

1 3744 

DATA 

ì 3752 

DATA 

1 3760 

DATA 

1 3763 

DATA 

1 3776 

DATA 

1 3784 

DATA 

1 3792 

DATA 

1 3800 

DATA 

1 3808 

DATA 

1 3816 

DATA 

1 3824 

DATA 

1 3832 

DATA 

1 3840 

DATA 

1 3848 

DATA 

1 3856 

DATA 

1 3864 

DATA 

1 3872 

DATA 

1 3880 

DATA 

1 3888 

DATA 

1 3896 

DATA 

1 3904 

DATA 

1 391 2 

DATA 

1 392 0 

DATA 

1 3928 

DATA 

1 3936 

DATA 

1 3944 

DATA 

1 3952 

DATA 

1 3960 

DATA 

1 3963 

DATA 

190 



32,32,103,32 r 32,101,32 
32,101,32,99,32,103,0 

101,103,77,70,101,103,32 
1 03 r l 00,101 , 32,1 01 , 103,77 
32,103,32,32,76,79,99 
1 01 , 103,99,101,103,0,76 
1 22,32,32,76,1 22,77,1 00 
1 00,1 00,78,76,1 22, 32, 77 
122,77,100,100,100,78,76 
122,32,76,122,0,0,160 

223.32.32.233.231.32.233 

1 60,223,32,160, 160,160,1 60 

231.160.160.160.160.160.32 
4,9,0,160,160,223,233 

160,231,233,160,226,160,223 

32.32.233.160.105.160.160 
0,160,160,160,160,160,231 

160.160.98.160.231.32.233 

160.105.32.160.160.160.160 
32,32,7,1, 18 , 25,0 

160.1 60 .95.105.1 60 .231.160 

1 SO, 2 26,1 60,231 , 233,1 60,105 
32,32,160,160,0,160,160 

32.32.160.231.160.160.32 

160 , 231 , 160 ,160,160,160,231 
160,160,160,160,160,32,13 
1,18,19,1,0,255,32 

32.32.9.32.32.32.32 

32.13.21.15.22.9.32 

9.12.32.34.81.34.32 
21 ,19,1,14,4,15,0 

32.32.32.30.32.32.32 
32,32,ì 2,5,32,12,5 

20.20.5.18.5.58.32 
32,32,0,32,32,32,93 
0,10,60,67,SI,67,62 
1 1 f 32,32,9,32,61 , 32 

32.32.19.21. 32 . 32 .32 
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13976 DATA 0,32,32,32,93,32,32 
13984 DATA 32,32,32,10,32,61,32 
13992 DATA 32,32,7,9,21,39,32 
14000 DATA 32,32,0,32,32,32,22 
14008 DATA 32,32,32,32,32,11,32 
14016 DATA 61,32,32,32,4,5,19 
14024 DATA 20,18,1,32,32,0,32 
14032 DATA 32,32,13,32,32,32,32 
14040 DATA 32,13,32,61,32,19,9 
14048 DATA 14,9,19,20,18,1,32 
14056 DATA 0,255,160,32,160,32,32 
14064 DATA 32,32,19,3,5,7,12 
14072 DATA 9,32,12,1,32,22,5 
14080 DATA 12,15,3,9,20,1,39 
14088 DATA 58,0,0,160,32,160,32 
14096 DATA 32,177,32,61,22,5,12 
14104 DATA 46,44,32,178,32,61,32 
14112 DATA 13,5,4,9,1,44,32 
14120 DATA 179,32,61,32,12,5,14 
14128 DATA 20,15,32,32,0,0,160 
14136 DATA 32,160,32,32,32,32,32 
14144 DATA 32,32,32,32,32,32,32 
14152 DATA 185,32,16,5,18,32,20 
14160 DATA 5,18,13,9,14,1,18 
14168 DATA 5,32,46,0,255,160,360 
14176 DATA 133,129,137,160,150,137,142 
14184 DATA 148,143,160,161,161,160,160 
1 41 92 DATA 255,32,256 
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La vendetta 
del Barone Rosso 

Chris Metcaìf — Marc Sugijama _ 


*La vendetta del Barone fiosso^ è un gioco che anche ì giocatori 
con più esperienza troveranno appassionante. Ponete particolare 
attenzione ne! digitare il programma (Vedi Appendice B: «Come 
digitare > programmi'»}. 

Le forze aeree di Richthofen, il temuto Barone Rosso, sono state 
mobilitate. Per la vostra abilità di pilota e di tiratore siete stato scelto 
per difendere il fronte. Avete a disposizione solo pochi aerei e non 
c'è tempo per costruirne di nuovi. Preparatevi ad affrontare le orde 
di Richthofen. 

Per ogni ondata successiva di nemici che affrontate viene portato 
al fronte un altro aereo. Quando tutti gli aerei a vostra disposizione 
saranno stati distrutti niente potrà più fermare l'invasione nemica. 
Solo la vostra abilità divide le forze di Richthofen dalla vostra 
patria. 

Come digitare il programma 

Il programma è scritto interamente in linguaggio macchina, per¬ 
ciò dovete usare l'MLX descritto all'inizio del capitolo (6.1), con le 
relative istruzioni, 

I passi per digitare un programma in linguaggio macchina con 
I MLX sono semplici, ma devono essere seguiti esattamente per 
ottenere una copia del programma che funzioni. Una volta che 
avete salvato una copia de *La vendetta del Barone Rosso*,, su disco 
o su nastro, potete caricarla con LOÀD e dare il RUN, proprio come 
per un qualsiasi altro programma in BASIC, anche se è scritto in 
linguaggio macchina. 

1 passi per digitare «La vendetta del Barone Rosso» sono; 
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1, Resettate il computer, spegnendolo e riaccendendolo. 

2, Digitate questa linea: 

POKE 44,23:POKE 23*256,G:NEW 

3. Caricate con LOAD l'MLX in memoria. 

(Se non avete scritto e salvato l'MLX, dovrete farlo prima). 

4, Date il RUN all'MLX, 

5. Rispondete alle domande: 

START INC ADDRESS: 2049 
ENDING ADDRESS: 5817 

6. Digitate I dati. 

7 r L'MLX vi chiederà il nome del file. 

8. Prima di caricare il programma resettate il computer 
Questo è tutto ciò che c'è da fare. Non occorre digitare tutti i dati 
in una sola sessione. Se volete digitare i dati in più di una sessione, 
dovete seguire i passi precedenti all'Inizio di ciascuna. 

Preparatevi alla battaglia 

Quando date il RUN sullo schermo apparirà un paesaggio, una 
linea contenente delle informazioni e la scritta «LA VENDETTA DEL 
BARONE ROSSO*. Le informazioni che vi vengono date sono: il 
punteggio piu alto raggiunto, il punteggio corrente ed il numero di 
aerei rimasti. Un segnale acustico vi avviserà per prepararvi al 
combattimento. 

Quando appare il messaggio PREMI IL FJRE PER COMINCIARE 
potete cominciare a giocare o scegliere un livello più alto. Muo¬ 
vendo la leva del joystick verso l'alto e verso il basso scegliete il 
livello del gioco (da 1 a 30), I livelli da 31 a 40 sono riservati ai 
giocatori esperti ed i livelli superiori sono per i veri maestri. 

Una volta scelto il livello, o in qualsiasi momento dopo l'inizio 
della musica, potete premere il pulsante di fuoco e cominciare a 
giocare. Ogni volta che cambiate livello, o ad ogni nuovo aereo, vi 
trovate sulla parte alta dello schermo. Questa zona è proibita alle 
forze di Richthofen a causa della limitata quota raggiungibile da 
esse. Ma quando scendete nella mischia non potrete più tornare in 
alto fino al termine del livello. 

J vostri nemici 

Richthofen fa uso di tre tipi di aeromobili. Dei palloni addetti alla 
sorveglianza pattugliano le aree loro assegnate: il loro movimento è 
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legato a correnti aeree casuali. Essi sono ritenuti; poco importanti 
dalia vostra aviazione (SO punti ciascuno). Il resto delle forze nemi¬ 
che consiste in due tipi di aerei: la forza d'attacco principale, for¬ 
mata da aerei di colore blu-verde, che volano sempre verso ovest, e 
gli aerei spìa rossi, che hanno un'uguale importanza. Entrambi i tipi: 
valgono 75 punti* 

Il vostro comando vi suggerisce alcune strategie e vi fornisce dei 
preziosi consigli. Anche se il vostro aereo è in grado di schivare le 
montagne senza alcun perìcolo, un certo numero di abitazioni civili 
sono disseminate nell'area in cui si svolge la battaglia e rappresen¬ 
tano un vero pericolo per la navigazione aerea. Non potete nè 
sparare né passare attraverso di esse Inoltre le esplosioni degli 
aerei nemici sono mortali per voi. 

Istruzioni deiravtaziorre 

La vostra aviazione vi ha anche dato un breve elenco di infor¬ 
mazioni per combattere il nemico. Vi accorgerete che i palloni sono 
molto difficili da colpire. Questo problema può essere parzialmen¬ 
te risolto, utilizzando la possibilità dì fuoco rapido del vostro joy¬ 
stick, Se tenete premuto il pulsante di fuoco, gli spari si sussegui¬ 
ranno in rapida successione, dopo un breve ritardo iniziale, A volte 
vi potrà succede re di volare senza incontrare un solo aereo nemico. 
Spesso il problema è dovuto al fatto che i pochi aerei superstiti 
stanno volando nella stessa vostra direzione. In tal caso è sufficien¬ 
te girarsi e stare ad aspettare che arrivino. Per sapere quanto vi 
manca per arrivare al termine del livello consultate la tabella che 
segue. 

Un'ultima cosa può avere importanza per voi, quale pilota da 
guerra. I primi aerei inviati al fronte sono indubbiamente di alta 
qualità e fattura. I componenti sono tutti realizzati coscienziosa¬ 
mente ed il risultato è un aereo in grado di raggiungere una velocità 
estremamente elevata, sufficiente, in effetti, perfino a superare gli 
aerei nemici. Ma con l'aumentare della produzione la qualità dimi¬ 
nuisce, Perciò, procedendo nel gioco, vi accorgerete che l'efficien¬ 
za dei vostri aerei diminuisce finché, raggiunto un certo livello, la 
vostra velocità massima è appena uguale a quella dei vostri nemi¬ 
ci. 

Vari tasti possono essere utilizzati nel programma. Premendo F7 
si provoca l'arresto dell'azione e del suono, finché il tasto (o il 
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pulsante di fuoco) non viene premuto nuovamente. RUN/5TOP ha 
lo stesso effetto, F8 fa terminare \ì programma, [asciando il vostro 
paese aila mercé di Riehthofen. F3 attiva o disatiiva il suono dei 
vostri motori, lasciando però inalterato il rumore degli spari e delle 
esplosioni, FI funziona come tasto RESET: controlla se avete rea¬ 
lizzato un punteggio elevato e vi riporta al quadro iniziate. 

Nel programma sono incluse diverse melodie. Possono essere 
tutte evitate, premendo il pulsante di fuoco del joystick. 

Livelli di gioco 


Livello 

Numero 

Punteggio 

del gioco 

dei nemici 

accumulato 

1 

12 

650 

2 

16 

1650 

3 

20 

2900 

4 

24 

4400 

5 

24 

5900 

6 

24 

7400 

7 

24 

9000 

6 

28 

10800 

9 

28 

1 2600 

IO 

28 

14400 

11 

28 

16300 

12 

32 

18400 

13 

32 

20500 

14 

32 

22700 

15 

36 

25100 

16 

36 

27500 

17 

36 

30000 

18 

40 

32600 

19 

40 

35200 

20 

40 

37700 

21 

44 

39800 

22 

44 

42750 

23 

44 

45550 
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24 

48 

48650 


25 

48 

51850 


26 

48 

55100 


27 

52 

58500 


28 

52 

61900 


29 

52 

65450 


30 

56 

69150 


31 

56 

72850 


32 

56 

76650 


33 

60 

80650 


34 

60 

84750 


35 

60 

88850 


36 

64 

93050 


37 

64 

97300 


38 

64 

101350 


39 

64 

105725 


40 

64 

110100 


41 

64 

113300 


42 

64 

1 18100 


43 

64 

122900 


44 

64 

127275 

ecc... 

45 

64 

130475 

LA VEDETTA DEL BARONE ROSSO 


2049 

:Q1 3,008,100,000 

,158,040,064 


2055 

:050,043,054,051 

,041,000,251 


2061 

: 000,000,1 65,001 

,041,254,218 


2067 

: 133,001 ,169,1 97 

,141,000,148 


2073 

: 221 , 1 69,000,1 41 

,023,208,019 


2079 

: 141,029,208,1 41 

,027,208,017 


2085 

:032,006,017,169 

,003,141,149 


2091 

: 178,002,1 69,027 

,141,017,065 


2097 

: 2 0 S,1 69,1 72,141 

,000,208,179 


2103 

i169,011,141,032 

,208,169,017 


2109 

;G14,141,033,208 

,169,000,114 
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6 


211 5 si 41,034,20 8,1 69,01 2,1 41 , 004 
2121 :035,208,162,127,169,000,006 

2127 :157,000,16S,202,016,250,104 
21 33 :1 62,032,1 89,033,01 7,1 57,1 63 
21 39 :01 5,1 68,1 89,066,01 7,1 57,1 91 
21 45 ;079,168,202,016,241,160,195 
21 51 : 000, 1 85,099,01 9, 1 53,000,047 

21 57 :1 76,200,1 92,1 44,208,245,250 
21 63 :1 60,000,1 85,1 79,01 9,1 53,04 3 
21 6 9 :000,1 77,200,1 92,1 63,208,042 
21 75 :245,1 60,000,1 35,091 ,020,060 
21 81 : 1 53,000,1 78,200,1 92,208,040 

21 87 : 208,245,169,160,141,0 32,070 
21 93 i 1 64,1 69,000,1 41 ,000,1 64,01 5 

21 99 :1 68,1 85,000,1 64,024,105,029 

22 05 : 040,1 53,001 , 164,1 85,032,220 

2211 :164,105,000,153,033,164,014 

221 7 : 200, 1 92,025,208,234,1 69,1 73 
22 2 3 : 000,1 41,1 75,002,1 41,1 76,042 
22 2 9 : 002,1 41,1 77,002,1 69,255,1 59 
2235 :1 41,168,002,1 69,001,133,033 
22 41 : 033,120,169,1 27,1 41,01 3,028 

2247 :220,169,001 , 1 41 , 026,208,1 96 
22 53 ; 1 69,000,141 ,018,203,1 73,146 
22 59 :01 7,208,041 , 1 27,1 41,01 7,250 
2265 :208,1 73,020,003,1 41 ,1 23,1 1 7 
2271 :016,173,021,003,141,124,189 

22 77 :01 6,1 69,0 72,141 , 020,003,1 38 
2283 :1 69,01 6,1 41 , 021 ,003,088,1 61 
2289 :1 69,00 0,1 41 , 172,00 2,1 41 ,093 
2295 :1 73,002,1 41 , 1 74,002,169,1 40 
2301 :004,1 41 , 1 83,002,1 73,168,1 56 

2307 :002,1 41 ,1 67,002,1 69,001 , 229 
231 3 :1 41,033,208,1 69,1 60,141 ,093 
2319 : ! 36,002,169,147,032,210,199 
2 325 :255,1 69,004,1 41 , 1 36,002,21 6 
2331 :169,006,1 41 , 033,208,160,232 
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i 


2 337 : 023,185,105, 021 ,1 53,154,162 
2343 :163,136,016,247,169,081,083 
2349 :141,187,163,160,002,162,092 
2355 :000,385,175,002,032,202,135 
2 361 :01 5,1 57,179,1 63,165,021,245 
2 367 : 1 57,1 80,1 63,2 32,232,1 36, 1 39 
2 373 :01 6,237,1 69,001,133,027,140 
2379 : 238,167,002,173,167,002,056 
2 385 : 201,04 3,144,005,169,039,170 
2 3 91 :141,167,002,160,063,169,021 
2397 : 255,153,064,1 64,1 36,01 6,1 1 3 
2403 :250,172,167,002,185,215,066 
2409 :021,072,141,180,002,185,194 
2 41 5 : 1 72, 021,072,024,109,1 80,1 77 
2421 : 002,1 41,1 80,002,1 85,1 29,24 4 

2427 :021 ,! 70,024,109,180,002,117 
2433 ;141,180,002,160,000,224,068 
2439 :000,240,009,169,001 ,153,195 
2445 :064,1 64,200,202,20 8,247,202 
2451 :104,170,240,009,169,002,073 
2457 II 53,064,164,200,202,208,120 
2463 i249,104,170,240,009,169,076 
2469 :003,153,064,164,200,202,183 
2475 :208,249,160,063,032,148,007 
2481 :01 5,041,031,056,233,010,051 
2487 1048,246,201,002,144,242,042 
2493 :153,192,164,032,148,015,125 
2499 :153,128,164,136,016,230,254 
2505 :169,130,133,025,032,006,184 
2511 :017,173,183,002,032,202,048 
251 7 :01 5,1 41,1 88,1 63,1 65,021,1 33 
2523 :141,189,163,169,049,141,047 
2529 :001,208,169,141 ,141 ,024,141 
2535 : 208,169,003,141,039,208,231 
2 541 : 1 69,01 1 ,1 41,032,208,1 69,1 99 
2 54 7 : 000,1 41,02 8,208, 1 6 9,1 60,1 81 
2553 :1 41 , 248,1 63,1 69,001 , 141 ,088 
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2559 : 0 21 ,20 8,1 69,000,141,1 82,20 8 
2 565 :002,1 33,032,173,031,20 8,072 
2 571 : 1 65,027,208,01 0,1 65,033,1 07 

2 577 :240,003,032,241,01 0,076,1 07 
2583 : 006,Oli,173,178,002,1 41,022 
2589 :179,002,032,237,013,169,149 
2 59 5 : 000,1 3 3,02 7,1 60,01 8,1 69,030 
2601 : 001 , 1 53,1 53,21 7,1 52,024,229 

2607 :105,123,153,154,161,162,142 
2 61 3 :007,1 85,043,021 , 032,221,050 
2 61 9 :01 0,202,01 6,2 47,1 3 6,01 6,174 
262 5 ; 230,162,000,0 32,1 31 ,01 6,1 24 
2 631 i224,0 51 ,208,111 ,1 62,000,059 
2637 : 1 60,01 3,185,062,021,032,043 
264 3 : 221,01 0,1 36,01 6,24 7,1 73,11 8 
2 64 9 : 0 00,220,201,111,240,091 ,184 
2655 :142,169,002,162,100,032,190 
2661 :245,015,174,169,002,232,170 
2 667 : 224,008,144,222,173,167,021 
2673 :002,024,105,001 ,032,179,200 
2679 : 01 5,032,202,01 5, 1 41 , 243,255 
2685 il 61,1 65,021,141 ,244,1 61,250 
2691 :173,000,220,201 ,111,240,052 

2697 i048,201,126,208,017,238,207 
2703 :167,002,173,167,002,201,087 
2709 :030,144,026,169,000,141,147 
2 71 5 :1 67,002,240,01 9,201,125,1 41 
2721 :208,224,206,1 67,002,173,1 17 
2727 il 67,002,201,255,208,005,237 
2733 il 69,029,141 ,167,002,162,075 
2739 i060,032,245,015,076,111,206 
2745 {010,160,018,169,032,153,215 
2 751 il 54,161,136,016,250,141,025 
2757 :243,161,141,244,161,173,04 0 
2763 :000,220,201,127,208,249,184 
2769 :206,167,002,173,167,002,158 
2 775 :141 ,! 6 8,002,076,07 5,009, 1 74 
2781 ; 010,010,010,141 ,235,010,125 
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2787 :152,070,010,010,141,238,020 
2793 :010,189,000,178,157,000,255 
2799 :180,096,169,000,141,00 5,062 
2805 !21 2,169,240,1 41,006,21 2,201 
2811 ;169,001,141,001,212,169,176 
2817 :033,141,004,212,096,173,148 
2 82 3 :000,220,073,127,133,036,084 
2829 :169,000,133,031,165,036,035 
2835 i041,001,240,010,173,001,229 
2841 :208,201 , 059,1 44,01 9,2 06,0 94 

2847 :001 , 208,1 65,036,041,002,228 
2 853 :240,01 0,1 73,001,208,201,102 
2 859 ; 21 4,1 76,003,238,001,208,1 1 5 
2865 :165,036,041,004,240,034,057 
2871 :169,001 ,133,031,169,161,207 
2877 il 41,248,1 63,1 73,1 78,002,198 
2883 :041,007,201 ,007,240,006,057 
28B9 :238,1 78,002,076,1 27,Oli,193 
2895 :169,000,141,179,002,198,000 
2901 ; 025,032,063,014,165,03 6,164 
2 907 ;041,008,240,032,1 69,001,070 
2 91 3 il 33,031 ,1 69,160,141 , 248,21 1 
2919 :163,173,178,002,041,007,155 
2925 -240,006,206,178,002,076,049 
2931 :127,Oli,169,007,141,179,237 

293 7 : 002,230,025,032,063,01 4,231 
2943 ;173,178,002,141,179,002,034 

294 9 :t 65,031,20 8,00 7,169,000,201 
2955 :1 41 ,000,21 2,240,005,1 69,1 38 
2961 :064,1 41,000,21 2,238,1 32,21 4 
2967 :002,1 69,01 2,056,237,1 67,026 
2973 :002,048,004,201 ,007,176,083 
2 979 :002,169,007,205,182,002,218 
2 985 :240,01 2, 1 65,031,208,01 6,073 
2 991 il 62,COI,032,245,01 5,076,1 94 
2 9 97 il 91,01 1 ,03 2,056,01 4,169,1 42 
3003 :000,141 , 1 82,002,173,031,204 
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300 9 : 203,2 0 8,003,076,1 2 9,01 2,061 

301 5 ;032,006,017,169,141 ,141,1 93 

3021 :019,212,169,000,141,020,254 

3027 :21 2,1 41,01 4,21 2,1 69, 070,00 5 

30 33 :1 41,01 5,21 2,1 69,00 8,1 41,1 35 

3039 :018,212,169,129,141,018,142 
304 5 : 21 2,1 73,183,002,072,248,095 
3051 :056,233,001,216,141,183,041 

3057 J002,169,002,141,039,208,034 
3063 :169,000,133,029,133,028,227 
3069 :133,030,141,032,208,165,194 
3075 :029,024,105,006,133,029,073 
3081 :144,002,230,030,165,028,096 
3087 :024,101,029,133,028,008,082 
3093 :173,001,200,101,030,141,163 
3 099 :001 ,208,176,027,040, 1 76,143 

31 0 5 :004,1 65,030,240,00 8, 1 73,1 41 

31 1 1 :032,208,073,002,141 , 0 32,01 5 
31 1 7 ;208,1 73, 178,002,141 , 1 79,158 
31 23 : 002,032,0 56,01 4,076,0 0 2,233 
3129 "012,1 04,169,003,141 ,039,01 3 
31 35 i2 0 8,169,011 ,141 ,032,2 0 8,064 
3141 ;1 62,255, 032,245,01 5, 1 04,1 1 4 
31 47 : 240,003,076,205,009,1 62,002 
3153 il 04,032,1 31,01 6,160,002,01 4 
31 59 il 8 5,1 72,002,21 7,1 75,002,07 2 
31 65 il 44,01 6,208,00 3,1 36,01 6, 104 
31 71 : 243,1 60,002,ì 85,1 7 2,002,095 

31 77 :1 53,1 75,002,1 36,01 6,247,0 66 
31 83 :169,000,141 ,024,212,1 62,051 
31 89 : 2 55,032,2 4 5,01 5,1 69,01 5, 0 30 

31 95 :1 41,024,21 2,076,241 ,00 8,05 7 
3201 i 1 65,032,2 4 0,002,1 98,03 2,0 30 

32 07 :1 65,03 6,041,01 6,208,00 7,0 96 
3213 ;1 6 9,0 80,1 33,032,076,1 38,001 
321 9 : 01 3,1 65,032,201,079,240,109 
3225 :00S,201,000,208,243,169,214 
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3231 : 030,133,032,1 69,009,141 ,1 61 

32 37 : 01 2,21 2,1 69,000,1 41 ,01 3,200 
3 243 :21 2,141 ,007,21 2,169,030,174 
3249 :141,008,212,169,129,141,209 
3255 =011,212,160,018,173,248,237 
3261 :163,056,233,160,141,170,088 
3267 ;002,208,002,160,021,162,238 
3 2 73 :007,1 69,000,1 57,080,1 76,02 2 

32 7 9 : 2 02,01 6,250,1 73,001 , 2 08,03 3 

3285 :056,233,002,141,169,002,048 
3291 i041,007,170,169,085,157,080 
3297 ;080,176,173,169,002,074,131 
3303 1074,074,056,233,005,141,046 
3309 1169,002,170,032,131,015,244 
3 315 il 77,2 51 , 201,04 3,144,004,03 9 
3321 1201,046,144,046,201,052,171 

3327 1176,012,201,046,176,032,130 
3333 1201,007,144,004,201,010,060 

33 3 9 :1 44,02 4,1 69,010,145,2 51 r 2 42 

3345 ;169,001,145,253,192,000,009 
33 51 : 240,01 2,1 36,173,1 70,002,244 

33 57 : 2 08,21 2,2 0 0,200, 1 92,04 0,0 57 
3363 il 44,206,1 40,1 71 ,002,076,006 
336 9 :0 89,01 3, 1 40,1 71 , 002,1 62,1 06 
3375 :063,1 89,192,1 64,20 5,1 69,005 
3 381 ; 002,240,006,202,01 6, 245,252 

3387 :0 76,089,01 3,1 73,171 ,002,071 
3393 ; 024,1 01,02 5, 2 21 , 1 28,1 64,21 6 

33 99 :20 8,239,189,064,1 64,201,1 1 2 
3405 i004,1 76,232,142,1 81 ,002,04 6 

341 1 : 20 6 r 180,0 02,032,004,01 6,01 1 

3417 ;162,005,032,245,015,169,205 

34 2 3 : 032,1 72,1 71 ,002,1 92,020,172 

342 9 : 2 40,01 3,1 45,251,1 36,1 74,036 

3435 ;170,002,240,244,200,200,139 
3441 :076,099,013,162,001,032,240 

34 4 7 :245,01 5, 1 73,031,208,1 69,192 
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34 53 : 000,1 41,01 1,21 2,173,1 78,072 
3459 :002,1 41,1 79,002,032,063,038 
3465 :014,165,197,201,004,208,158 
3471 :003,076,035,01 2,201 , 005,01 3 
3477 :208,020,165,033,073,001,137 
3483 :133,033,240,005,032,241,071 
3489 :010,208,061,169,008,141,246 
3495 :004,21 2,208,0 54,201 ,003,081 
3501 : 240,004,201,063,208,050,1 71 

3507 :173,141,002,240,015,169,151 
3513 :071,141,024,003,169,254,079 
3 519 si 41,02 5,003,169,000,1 33,1 50 
3525 :198,000,036,197,080,252,192 
3531 :169,000,141,024,212,173,154 

3537 :000,220,201,111,240,014,227 
3 543 :1 65,1 97,201 ,063,240,004,061 
354 9 :201 ,003,208,239,036,1 97,081 
3555 :080,252,169,015,141,024,140 
3561 :212,076,006,Oli,165,026,217 

3567 :1 41 ,1 69,002,1 65,025,1 41 ,1 1 4 
3573 :170,002,160,000,l73,171,153 
3579 1002,240,005,044,017,208,255 
3585 sOl6,251,173,179,002,141,251 
3591 :178,002,174,169,002,189,209 
3597 1099,017,170,032,131,015,221 
3603 :169,032,145,251,174,170,192 
3609 : 002,189,099,01 8,072,189,082 
3615 1099,017,170,032,131,015,239 
3621 :169,013,145,253,104,145,093 

3627 :2 51 ,238,1 69,002,238,1 70,087 
3633 :002,2 00,1 92,040,208,21 0,1 33 
3639 :096, 1 69,000,1 41 , 1 71 ,002,1 22 
3645 : 240,005,169,001,141,171,020 
3651 1002,032,237,013,162,000,001 
3657 1 ! 42, 16 9,002,174,169,002,219 
3 663 : 1 39,064,1 64,201,01 6,1 44,089 
3669 :071,201,057,144,058,160,008 
3675 :01 5, 173,1 30,002,208,043,200 
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3681 : 236 F 1 SI ,002,208,038,1 69, 163 
3 687 : 003,141 ,039,20 8,169,01 2, 1 63 
3693 il 41 ,032,20 8,2 48,173,183,070 
3 699 : 002,024,105, COI , 1 41 , 1 83, 059 
3 70 5 : 002,21 6,1 65,025,1 3 3,02 6, 1 76 
3711 :162,052,032,131,016,169,177 
3717 ;011,141,032,208,076,075,164 
3723 :009,072,104,136,208,251,151 
3729 :076,113,015,074,074,074,059 
3735 ;024,105,003,254,064,164,253 
3741 il 41 ,1 84,00 2,188,1 28,1 64,196 
3747 ; 140,1 85,002,1 88,1 92,1 64,01 0 
3753 :140,186,002,172,171,002,074 
3759 :208,10 5,201 ,003,240,055,21 9 
3765 : 2 01 ,002,240,032,1 76,095,1 59 
3 771 : 032, 1 73,01 5, 2 40,003,032,1 70 

3 777 : 255,01 4,032,1 73,01 5,2 40,1 54 
3 78 3 : 0 82,032,1 73,01 5,2 40,00 6,23 5 
3 7 89 5 2 06,1 85,002,206,1 85,002,22 3 
37 9 5 : 238,1 85,002,076,026,015, 24ì 
3 801 ; 2 3 8,1 85,002,032,148,01 5,069 
3807 ;041,007,208,055,032,255,053 
3 313 :014 F 206,185,002,076,02 6,226 
381 9 :015,206,185,002,032,148,055 
332 5 : 01 5,041 ,0 07,208,03 6,032,068 
3 831 : 255,01 4,238,1 85,002,076,249 
3837 :026,015,032,173,015,240,242 
3843 :011,173,186,002,201,002,066 
3 84 9 : 240,01 4, 2 06,1 86,002,096,241 
385 5 il 73, 186,002,201 ,021 ,240,070 
3861 i003,233,186,002,096,109,223 
3867 3 128,164,056,229,026,201,063 
3 873 :040,1 76,01 7,1 6S, 1 8 9,1 92,0 47 
3 87 9 il 64,1 70,032,131,015,1 69,208 
3885 :032,145,251,136,048,002,147 
3891 :145,251,173,185,002,056,095 
30 97 : 229,02 5,201 ,040,1 76,035,251 
3903 :1 68, 1 7 4,1 36,002,032,1 31 , 2 44 
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3 90 9 ; DI 5» 1 74,1 84,0 02,1 89,089,21 0 
3 91 5 X 021,1 4 5,253,1 38,024,105,249 
3921 s042,145,251,136,048,011,202 
3927 ;189,O8Q,021,145,253,133,145 
3933 :024,105,032,145,251,174,056 
3 93 9 :1 69,002,1 73,1 85,002,1 57,01 9 
3945 :128,164,173,186,002,157,147 
3 951 : 1 92,1 64,238,1 69, 002,1 73,025 

3957 :169,002,201,064,240,003,028 
3 96 3 : 0 76,076,01 4,1 65,025,1 33,1 00 
3 96 9 ; 026,096 f 1 89,0 00 r ì 64,1 3 3,22 5 
3 97 5 s251 , 133,253,1 89, 032,1 64,1 33 
3981 ; 1 3 3, 2 52,073,1 20 r 1 33 , 254,082 

3987 : 0 96,0 56,1 65,140,101 ,1 43,0 80 

3 99 3 :1 01,1 44,133, 139,138,0 72,1 1 2 
3999 :162,004,181,139,149,140,166 
4005 :202,016,249,104,170,165,047 

4 01 1 i 1 39,096,032,1 4 8,01 5,041 , 1 30 

401 7 : 001 ,096,1 62,000,1 34,020,078 
4023 :162,008,248,010,072,165,080 
4 029 : 020,101 ,02 0, 1 33,02 0,104,075 
4 03 5 : 202,20S,244, 1 65,020,21 6,226 
4041 :096,072,041,015,024,105,042 

404 7 : 071 ,1 33,0 21 ,1 04,074,074,172 
40 53 : 0 74,0 74,024,1 05,071 ,1 33,1 82 
40 59 : 020,0 96,1 60,002,1 62,000,147 
4 065 : 185,1 7 2,002,032,202,01 5,065 
4071 : 1 57,1 60,1 63,1 65,021 , 1 57,030 
4077 :161,163,232,232,136,016,153 
40 8 3 : 237,096,1 52,072,160,255,1 91 
40 8 9 : 072,1 04,1 36 , 208 , 251 , 202,1 98 

40 95 : 208,248,1 04,1 6 8, 096,1B8,2 43 

41 01 : 0 64,164,1 85,098,021 ,248,01 7 
41 07 : 024,109,ì 72,002,1 41 ,172,1 1 9 
41 1 3 : 002 , 1 73,1 73,002,1 05,OOO,21 6 
41 1 9 :1 41,1 73,002,173,1 74,002,1 76 
41 25 : 1 05,0 0 0,1 41 , 1 74,002,21 6,1 55 
41 31 :1 69,01 6,157,064,1 64,032,1 25 
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41 37 :221,01 5,169,1 38,1 41,01 9,2 32 
4143 : 212,169,000,1 41,020,212,033 
4149 :141,014,212,169,060,141,022 
41 55 :01 5,21 2, 1 69,003,1 41 ,018,110 
41 61 :21 2,169,1 29,141,01 8,21 2,1 78 
4167 :096,173,025,208,141,025,227 
41 73 : 208,041,001,240,043,1 62,00 4 
4179 : 233,173,178,002,009,016,182 
4! 85 ;1 68,1 73,018,208,016,004,164 
41 91 :1 62,006,160,000,1 42,01 8,071 

4197 :208,173,017,208,041,127,107 
4203 :141,017,208,140,022,208,075 
4209 :l73,013,220,041,001,240,033 

421 5 :0 05, 1 98,002,076,04 9,234,1 71 
4221 il 04,168,104,170,104,064,071 

422 7 :0 32,006,017,232,189,002,097 

4233 :022,141,169,002,202,160,065 
4239 :000,189,002,022,153,003,000 
4245 :212,153,010,212,153,017,138 
4 251 : 21 2,2 32,200,192,004,208,179 
4257 : 238,1 69,002,1 41,170,002,11 5 
4263 :169,212,133,021,032,016,238 
4269 :017,172,170,002,185,102,053 
4275 :021,133,02 0,160,00 0,189,190 
4281 :002,022,145,020,232,200,038 
4287 :192,002,208,245,189,002,005 
4293 :022,240,062,232,1 42,1 71,042 
4299 :002,170, 160,004,169,008,204 
4305 :145,020,173,169,002,145,095 
4311 ; 020,134,002,172,000,220,251 

4317 :192,1 11,208,011 ,0 32,006,013 
4323 :01 7,172,000,220,192,111 ,171 
4329 :240,249,096,166,002,208,170 
4335 : 234,041,254,160,004,145,053 
434! :02C,172,170,002,136,016,249 

4347 : 002,160,002,140,170,002,215 
43 53 :174,1 71,002,208, 1 68,1 60,1 1 6 
4359 :023,1 69,000,1 53,000,21 2,052 
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4365 : 1 36,01 6,250,1 69,006,141 ,2 21 
4371 :004,21 2,141,011,21 2,141 ,228 

4377 : 018,21 2,169,01 5,141,024,092 
43 83 : 212,096,248,000,000,160,235 
4 3 89 : 0 31 ,2 52,144,001 ,00 0,136,089 
4 395 :002,12 4,135,2 55,249,128,168 
4 4 01 ; 000,005,1 27,000,007,01 7,205 

4407 :240,133,000,015,249,000,180 
4413 ; 002,03 2,000,001 ,192,000,03 2 
4 41 9 :0 00,031,063, 248,005,000,1 58 
4425 :128,009,062,064,017,159,000 
4431 : 255, 225,160,000,001,224,176 

4437 :000,254,161,015,136,159,042 
4443 :240,000,004,064,000,003,146 
4449 :128,000,022,022,022,022,057 
4 4 55 : 022,022,022,022,022,022,235 
4461 :022,022,022,022,022,022,241 

4467 ; 022,022,022,022,022,022,247 
4473 ;022,022,022,022,022,022,253 
4479 : 022,022,022,022,022,02 2,003 
4485 :022,022,022,022,022,022,009 
4491 :0 2 2,021 ,021,020,01 9,01 8,004 

4 4 97 : 01 7,01 6,01 5,01 4,01 4,01 5,236 
4 50 3 i 01 6,01 7,01 8,01 9,01 9, 02 0,004 
4509 i020,01 9,01 8,01 7,01 7,01 6,008 
451 5 ;01 6,01 6,01 7,01 7,01 7,01 7,007 
4521 :017,018,019,020,021,021,029 

4527 i021,020,020,020,019,019,038 
4 53 3 : 01 8,01 8,01 8,01 8,01 9,01 9,035 
4 539 !020,021,021 ,021 ,021,021,056 
4 54 5 :021,021,021 ,021,021,021,063 
4 551 :021,021 ,021 , 02 0,020,01 9,065 

4 557 :01 8,01 7,01 6,01 6,01 5,01 5,046 
4 563 :01 5,016,01 6,01 6,01 6,01 7,051 
4569 :017,017,017,017,017,01 7,063 
4 575 :01 7,01 6,01 6,01 6,01 6,01 7,065 
4 581 :01 8,01 8,01 7,01 7,01 6,01 6,075 

4587 :015,015,014,013,013,012,061 
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4593 :011,010,009,008,007,007,037 
4599 :006,006,006,006,007,008,030 
4605 :009,010,Oli,012,013,014,066 
4611 :015,016,017,018,019,020,108 
4617 : 0 21 ,02 2,022,022,022,022,1 40 
4623 :022,022,021,021,020,020,141 
4 629 : 020,020,020,01 9,01 8,01 7, 1 35 
4 635 : 01 6,01 6,01 5, 01 4,01 4,01 3,1 1 5 
4 641 :013,013,013,01 3,01 4,01 4,113 
4 647 : 01 5,01 5,01 6,01 6,01 7,01 8,1 36 

4653 :01 8,019,019, 020,020,021, 1 62 
4 659 :021,021,021,021,021,021,1 77 
4665 ;020,020,019,019,018,018,171 
4671 :017,017,016,016,015,015,159 

4 677 :01 4,01 4,01 3,01 3,01 3,01 3,1 49 
46 83 :01 3,01 4,01 4,01 5,01 5,01 6,1 62 
4689 :01 7,01 8,01 9,01 9,02 0,020, 1 94 

46 95 :020,020,020,021,021,021,210 

4701 :020,020,020,021,021,022,217 

4707 :000,000,000,000,000,000,099 
4713 :000,000,000,000,000,000,105 
4719 :0 00,000,000,000,000,000,1 1 1 
472 5 :000,000,000,000,000,000,1 17 
4731 :000,000,000,000,000,000,123 
4737 :000,000,000,000,000,000,129 
4 7 43 :000,000,000,000,000,003,138 
4749 :004,001,001,001,001,001,150 
4755 : 001,001,002,002,002,002,1 57 
4761 :002,005,006,000,000,001,167 
4767 :001,003,004,001,000,002,1 70 
4773 :005,006,007,008,009,0 02, 202 
4779 :002,002,000,000,000,003,17B 
4 785 : 004,000,003,004,001 ,000,189 

47 91 :000,00 2,005,006,002,000,1 98 

4797 :000,000,000,000,000,000, 1 89 
4803 :000,000,000,000,000,000,1 95 
4809 :000,003,004 ,COI,001,001,211 
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4815 :QQ1,000,007,008,009,000,232 
4821 : 000,005,006,000,000,000,22 4 

432 7 : 000,000,000,000,000,003,222 
4333 :004,000,002,002,000,000,233 
4839 J003,004,003,004,003,004,252 
4845 ;001,003,004,001,001,001,248 
4 8 51 :001 ,001,00 3,0 04,00 3,004,003 
4 85 7 : 000,0 02,002,0 0 2,002,002,003 
4 863 : 002,002,002,0 02,002,002,01 1 
4369 :002,002,002,002,002,000,015 
4875 :000,000,000,000,000,000,011 
4 831 : 003, 004,007,008,009,003,051 
43 87 : 004,001 ,001,001,003,00 4, 03 7 
4 893 :001 ,003,00 4,003,004,000,044 
4 8 99 : 005,006,005,006,005,006,068 
4905 1005,006,002,005,006,005,070 
4911 i006,005,006,000,000,000,064 
4917 i000,000,000,000,003,004,060 
4 92 3 : 003,004, 0 0 3, 0 04,0 03,004,0 80 
4 92 9 : 003,004,003,004,003,004,0 86 
4935 1003,004,000,005,006,005,094 
4941 ;0Q6,005,006,002,002,002,100 
4 947 :005,0 06,000,000,000,005,09 9 
4 9 53 : 006, 0 0 0,00 0,000,007,00 3,1 10 
4 959 : 009,005,006,000,0 35,000,200 
4965 : 000,000,000,0 00,000,000,101 
4 971 : 001,001 ,004,004,01 6,01 6,1 49 

4977 1064,064,064,064,016,016,145 
4983 :004,004,001,001,000,000,129 
4 96 9 :000,000,001 ,004,01 6,064,21 0 
4 9 95 : 00 ì,004,016,064,000,000,21 6 
5001 ; 000,000,064,01 6,004,001 , 22 2 

5007 :000,000,000,000,000,000,143 

501 3 : 000,0 00, 0 64,01 6,004,001 , 2 34 
5019 100 5,005,024,024,1 06,03 8,1 01 

502 5 : 038,070,000,000, 067,067,1 47 
50 31 il 47,1 2 8,1 2 8,1 4 9, 0 00,1 92,143 
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5037 : 240,240,2 40,12S,12 8,14 9,01 8 
5043 :000,000,000,000,00 0,000,1 79 
5049 :000,000,003,01 5,01 5,01 5,233 
5055 :003,001,002,002,1 94,1 92,073 
50 61 :240,058,042,010,002,000,037 
5067 :063,00 8,032,2 55,249,246,032 
5073 :063,008,000,000,001 ,003,028 
5079 : 00 3,001,000,000,000,003,222 
5085 :0 07,015,01 5,00 7,003,0 0 0,01 2 

50 91 :003,015,062,058,058,062,229 

5097 :01 5,003,000,003,006,01 2,01 6 
5103 :01 2,006,00 3,0 00,000,000,004 
5109 :0 01 ,002,002,001,000,000,251 
5115 :0 00,000,000,001,001,000,2S3 

51 21 :000,000,000,000,000,000,001 

5127 :000,000,000,000,192,240,183 
51 33 : 240,240,1 92,064,1 28,1 28,237 
51 39 :1 68,048,01 2,170,21 8, 1 22,245 
51 45 :168,04 8,194,002,010,248,183 
51 51 : 2 52,2 40,1 92,000,000,000,203 

51 57 :128,192,192,128,000,OOO,165 
5163 :000,192,224,240,240,224,139 
51 69 :1 92,000,1 92,240,1 88,1 72,00 9 
51 75 :1 72,188,240, 192,000,192,015 
51 81 :0 96,048,048,096,192,000,02 9 

51 87 :000,000,1 28,064,064,1 28,1 95 
51 93 ; 000,000,000,OOO,000,1 2 8,2 01 

51 99 :12 8,000,000,000,000,000,207 

5205 :000,000,OOO,000,000,OOO,0 85 
5211 :238,238,238,254,254,2 38,015 
521 7 :233,238,254,254,056,0 56,169 
5223 :056,056,254,254,124,254,077 
5229 :224,238,238,238,254,1 24, 1 45 
5235 :126,254,224,252,126,014,087 
5241 :254,252,1 24,254,238,2 2 4,1 87 

5247 :224,238,254,124,252,254,193 

52 53 : 238,254,252,238,238,2 38,055 
5259 : 254,254,224,252,252,22 4,063 
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5265 : 254,2 54,124,254,238,238,227 
5271 :238,233,254,1 24,056,120,157 
5277 : 248,056,056,056,254,254,057 
5283 : 252,254,01 4,023,112,224,02 3 
5289 ; 254,254,252,254,014,124,041 
5295 :124,014,254,252,014,030,095 
5301 :126,233,254,254,014,014,057 
530 7 :254,254,224,252,254,01 4, 1 59 
5 31 3 : 254,1 24,124,252,224,252,1 43 
5319 :254,238,254,124,254,254,041 
5325 :01 4,028,056,0 56,0 56,056,21 5 
5331 :1 24,254,23 8,1 2 4,2 54,23 8,1 63 
5337 : 254,124,1 24,254,238,254,ì 85 
5343 :126,014,126,124,000,000,101 
534 9 :1 1 4,03 8,254,2 4 0,00 0,00 0,1 07 
5355 : 254,254,056,0 56, 056,056,1 99 
5361 -056,056,254,254,224,252,057 
5367 :252,224,22 4,224,206,238,079 
5373 : 254,2 54,254,254,238,230,201 
5379 5028,056,112,000,000,000,199 
5385 5000,000,238,238,238,238,193 
5391 5238,238,124,056,252,254,153 
5397 :238,254,252,224,224,224,1 57 
5403 ;252,2 54,238,254,252,238,235 
5409 :254,252,000,000,000,000,027 
541S 5000,000,000,000,005,001,045 
5421 : 004,0 00,018,00 7,01 9,00 6,099 
5427 : 020,021,003,025,005,006,131 
5433 :022,006,020,002,006,023,136 
5439 :005,006,003,003,025,019,124 
5445 5001,005,006,025,018,007,131 
5451 ;025,024,006,002,001,020,153 
54 57 : 009,015,Oli,001 ,001,009,127 
5463 5003,004,002,009,011,011,127 
5469 s001,001,009,003,004,002,113 
5475 5080,117,117,000,007,014,178 
5481 :067,068,071,069,070,032,226 
5487 5071,071,071,071,071,071,025 
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54 93 :032,032,064,065,06 6,064,1 04 
5499 :0 32,067,068,071 ,069, 070,244 

550 5 :004,008,01 0,01 2 # 012,012,187 
5511 ; 008,01 2,012,01 2,008,01 2,1 99 

551 7 : 01 2,008,01 2,01 2,008,01 6,209 

552 3 : 01 6,020,01 6, 01 4,020,020,255 

5 52 9 : 01 6,01 4,020,0 2 0,01 4,020,001 
5535 : 020,016,02 0,01 6,01 6,024,01 5 
5541 : 022,0 30,01 7,01 7,000,000,251 

5547 i 0 64,003,004 ,004,002,006,254 
5553 ; 01 0,008,008,006,01 0,004,22 3 
5559 :01 0,01 4,01 0,01 2,006,01 0, 245 
556 5 i012,016,010,018,016,01 2,01 7 
5571 ;014,016,020,016,024,014,043 

5577 :018,014,020,020,022,026,065 
5583 :020,016,017,017,030,000,051 
5589 :0 64,000,003,0 04,00 6,01 0, 044 
5595 ; 006,002,00 8,0 08,01 0,006, 00 3 
5601 : 01 6,01 0,00 6,01 4,01 2,01 8,04 5 

560 7 : 01 8,01 2,00 8,01 0,008,01 4,04 5 

561 3 : 01 2,01 4, 01 6, 01 4,01 6,008,061 

561 9 :024,01 8,022,020,020,022,11 3 

562 5 :01 8,0 2 0,026,Gl 7,030,01 7, 1 21 

5631 :064,000,000,000,033,076,172 

563 7 :201 , 031 , 021 , 01 5, 1 43,01 0, 1 70 

5643 :015,024,014,060,031,021,176 
5649 :015,143,010,015,024,014,238 
5 655 : 0 60,031 ,021 ,01 5,1 43,01 0,04 7 
5661 :015,024,014,030,031,021,164 

5667 : 01 5, 143,01 0,01 5,02 4,01 4,000 
5673 i030,031,021,015,143,010,035 
56 79 :01 5,024,01 4,060,000,000,1 60 
56 85 :000,000,033,076,201,20 9,0 60 
56 91 : 01 8,01 5 # 000,000,005,209,050 

56 97 :01 B,01 0,031 ,021 ,01 0,2 0 9,1 08 
5 70 3 :01 8,01 0,195,01 6,01 0,21 0,01 0 
5 70 9 :01 5,01 1 ,195,01 6, 01 2,2 09,023 
5715 i018,021,165,031,022,165,249 
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5 721 :031,023,049,028,024,030,01 fi 
5 72 7 : 025, 04 2,041 r 021,04 3,2 0 9,2 20 
5 733 : 018,044,000,000,000,002, 165 
5739 :065,123,249,071,006,020,134 
574 5 : 071 ,006,01 0,097,008,060, 1 09 
5 751 ; 0 71 ,006,020,097,008,01 0, 075 
5 75 7 :1 43,01 0,060,071 ,006,02 0, 1 79 
5 763 :097,008,01 0,1 43,01 0,030,173 

576 9 : 0 71,006, 020,097,008,01 0,093 

577 5 si 43,01 0,030,071 ,006,02 0,1 67 
5 781 ; 0 97,008,01 0,1 43,01 0,0 60,221 
57 87 :0 97,008,02 0,1 4 3,01 0,01 0,1 87 
5 7 93 :1 43,01 2,060,1 43,01 0,02 0,03 7 
5799 : 0 9 7 ,008,010,071,006,060,163 
580 5 :071 ,0 06,02 0,071 ,006,01 0,1 01 
5S1 1 : 0 97,008,0 60,00 0,0 0 0,000,08 8 
5817 :000,000,000,000,000,032,217 
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6.4 

Zuider Zee 

Marc Sugiyama 


La vostra missione consiste nel salvare il vostro villaggio 
dall'Inondazione * Questo programma in BASIC e in linguaggio 
macchina vi farà divertire per delle ore . £ necessario usare 
l'MLX. 

Il vostro villaggio in Olanda è stato costruito sottraendo la terra al 
mare. Delle alte dighe impediscono che le fredde acque del mare 
del Nord inondino il vostro paese. Ma giunge la notizia che si sta 
avvicinando una terribile tempesta. Un'abbondante pioggia e delle 
ondate gigantesche provocheranno sicuramente delle falle nelle 
dighe e l'innondazione di parte o, forse, di tutto al paese. 

Ma voi siete preparati. Voi ed i vostri amici olandesi avete com¬ 
battuto il mare perdei secoli. Nei tempi passati la tempesta sarebbe 
stata affrontata con secchi e sacchi di sabbia e molte vite sarebbero 
andate perdute. Ma i tempi sono cambiati. Degli elicotteri trarranno 
in salvo le persone le cui case sono state sommerse dalle acque; le 
dighe verranno riparate e l'acqua pompata: tutto ciò può venir fatto 
da una sola persona. Voi* 

Voi siete il responsabile delle dighe 

Come responsabile delle dighe spetta a voi il compito di ripararle 
e pompare via l'acqua. 

Per far questo avete a disposizione un camion, con i più moderni 
materiali per le riparazioni, e tutto ciò che dovete fare consiste nel 
portarlo nel punto in cui una diga ha bisogno di essere riparata. Lì 
camion farà il resto. 

Avete anche quattro pompe. Dopo aver riparato una diga dovete 
prendere una pompa e metterla sulla diga. Quindi posizionarla in 
modo che pompi l'acqua dai campi allagati verso il mare. Ma fate 
attenzione. Se la posizionate nel modo errato, può pompare l'ac¬ 
qua dal mare ai campi, peggiorando sensibilmente l'Inondazio¬ 
ne. 
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Ma neanche dopo a ver ripa rato tutte le dighe e pompato via tutta 
l'acqua vi potrete riposare. Verrete immediatamente promossi e 
dovrete fare lo stesso lavoro per un altro villaggio, dove le condi¬ 
zioni sono ancora peggiori. 

£ se siete cosi poco abile da lasciare che tutto il vostro paese 
venga sommerso, potrete certamente comprendere perché i vostri 
amici del villaggio cercheranno un nuovo responsabile per le 
dighe* 

Come giocare 

All'imzio del gioco vi verrà chiesto di scegliere il livello da cui 
volete incominciare. Finché non avrete acquistato un'abilità suffi¬ 
ciente nella guida del camion e nel far funzionare le pompe, vi 
converrà cominciare col livello 1, in corrispondenza del quale il 
temporale non è così terribile e le falle non si aprono tanto spesso. 
In seguito però potrete provare con i livelli superiori. 

Il villaggio. All'inizio del gioco lo schermo verrà riempito di 
campi coltivati, alberi e case. Verranno costruite le dighe col depo¬ 
sito del responsabile al centro. Quindi il mare ricoprirà tutta l'area al 
di fuori delle dighe, Infine nelle dighe si apriranno le prime falle e 
parte del villaggio sarà inondata, E il momento che vi mettiate al 
lavoro! 

Punteggio, Il punteggio dipende da vari fattori: quanta terra è 
ricoperta dall'acqua; a che livello state giocando e per quanto 
tempo potete impedire che il villaggio venga sommerso. 

Movimenti del camion. Voi guidate il camion sulla sommità delle 
dighe usando il joystick. Le dighe sono leggermente più larghe del 
camion, perciò potete spostarvi leggermente sui due lati. Non è 
possibile far cadere accidentalmente ri camion dalla diga. 

Riparazione delle dighe. Guidate il camion fino ad una falla nella 
diga. Dovete scaricare una gran quantità di materiale nella falla per 
chiuderla. Tenete premuto il pulsante del joystick; in tal modo il 
camion sarà in reverse. Quando muovete il joystick il camion si 
muoverà nella direzione opposta a quella in cui voi muovete il 
joystick. 

Per tutto il tempo che tenete il pulsante premuto il camion si 
muoverà al contrario. Quando raggiunge i! bordo della diga si ferma 
e scarica il materiale di sotto. Se avete eseguito le manovre nel 
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modo corretto, la nuova sezione creata riparerà la diga, altrimenti il 
carico di materiale sarà stato sprecato, 

|] camion si riem pie continua mente di materiale di riporto mentre 
guidate da un posto ad un altro, perciò non resterete mai senza 
materiate per eseguire le riparazioni delle dighe. 

Pompaggio dell'acqua. Quando avete riparato una diga potete 
cominciare il pompaggio dell'acqua. Anzitutto dovete andare a 
prendere una pompa. All’inizio del gioco tutte e quattro le pompe 
si trovano all'esterno del deposito. Portatevi sopra le pompe col 
joystick e premete il pulsante, senza muovervi: sentirete il rumore 
della pompa che viene caricata automaticamente dal camion; 
quando rilasciate il pulsante, e vi portate sul bordo del campo che 
volete prosciugare, la pompa vi seguirà. 

Dovete mettere la pompa sulla diga tra il campo inondato ed il 
punto in cui volete scaricare l'acqua aspirata dalla pompa, In gene¬ 
re vorrete pompare l'acqua dai campi al mare, ma a volte sarà 
necessario pomparla da un campo allagato ad un altro. O perfino da 
un campo allagato ad uno in cui non c'è acqua. 

Per posizionare la pompa tenete premuto il pulsante del Joystick 
e muovete la leva nella direzione in cui volete che l'acqua vada a 
finire. 

Sentirete il rumore della pompa che si mette in funzione; quando 
vi allontanate la pompa resterà dov era. 

In qualsiasi momento potete andare a prendere un'altra pompa, 
ripetendo l'operazione già descritta. 

Come funzionano le pompe, Le pompe sono semplicemente 
delle macchine che obbediscono a dei comandi. Se posizionate la 
pompa in modo che aspiri l'acqua del mare e la riversi sui campi, 
essa farà esattamente questo e l'inondazione peggiorerà invece di 
migliorare, E voi rischierete sempre più di perdere il posto. 

Tuttavia, se posizionate la pompa in modo che aspiri l'acqua da 
un campo non allagato, o in modo che aspiri o pompi su una diga 
invece che in un campo o nel mare, non succederà niente. 

IL pulsante de( joystick. Se muovete il joystick senza premere il 
pulsante, il camion si sposta nella stessa direzione. 

Se premete il pulsante, il camion può fare una di queste tre 
cose: 

— se non muovete il joystick ed i! camion sta toccando una 
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pompa, ma ancora non ne trasporta una, caricherà la pompa, la 
quale smetterà di funzionare; 

— se muovete il joystick ed il camion non trasporta una pompa, il 
camion si vedrà in reverse e si muoverà nella direzione opposta a 
guelfa in cui muovete tf joystick, Non appena raggiungerà il bordo 
di una diga scaricherà del materiale di riporto; 

— se muovete il joystick mentre il camion trasporta una pompa, 
ìf camion scaricherà la pompa e, se possìbile, comincerà il pom¬ 
paggio dell'acqua nella direzione indicata dal movimento del joy¬ 
stick. 

Promozione, Se riuscite a prosciugare tutta Ea terra del villaggio, 
sarete promossi e passeretea] villaggio seguente. Il gioco si fermerà 
e verrà disegnato il nuovo villaggio sullo schermo. Il livello del 
gioco aumenterà, per cui si apriranno delle falle più frequentemen¬ 
te ed una porzione maggiore di territorio sarà inondata all inizio del 
gioco. Perù ai livelli superiori guadagnerete anche più punti. 

Strategia 

Ài livelli più bassi è possibile riparare tutte le dighe e pompare 
fuori tutta l'acqua. Ma ai livelli superiori il temporale è molto più 
intenso e le falle neEle dighe si aprono troppo di frequente. In 
questo caso la strategia migliore consiste nello scegliere quattro 
falle relativamente pìccole, mettere una pompa in corrispondenza 
di ciascuna di esse e poi passare il resto del tempo a riparare le altre 
falle nelle dighe, Il più velocemente possibile. Le pompe funzio¬ 
neranno finché il campo da cui stanno pompando l'acqua non sarà 
completamente racchiuso dalle dighe. Poiché iE gioco termina non 
appena tutti i campi sono completamente sommersi, conviene 
mantenere un'area all'asciutto, sacrificando Ee altre, piuttosto che 
cercare di fare troppo. 

Potete anche sfruttare il fatto che il vostro camion può creare una 
diga dovunque vogliate. È perciò possibile creare delle dighe e dei 
campi nuovi. È possibile anche suddivìdere un campo in campi più 
piccoli, costruendo all'interno delle nuove dighe, Ciò può risultare 
particolarmente utile ai livelli superiori, quando le falle nelle dighe 
si aprono cosi di frequente che non vi è possibile mantenere un 
campo completamente riparato per un tempo abbastanza lungo da 
prosciugarlo. 
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Come digitare il programma 

La maggior parte del programma è scritta in BASIC, ma alcune 
routine fondamentali sono scritte in linguaggio macchina e devono 
essere digitate e salvate utilizzando Y Editor per il linguaggio mac¬ 
china: MLX, che si trova all'inizio del capitolo, 

L'MLX è un programma che controlla le istruzioni DATA mentre 
voi le digitate ed impedisce che i dati vengano digitati non corret¬ 
tamente, Vari altri giochi in questo capitolo, e programmi in altri 
libri di COMPUTEt per il Commodore 64, fanno uso dell'MLX, 
perciò se b digitate e salvate una volta per sempre, avrete occa¬ 
sione di usarfo più e più volte per digitare dei programmi in lin¬ 
guaggio macchina, senza errori. 

Il primo passo da fare, quindi, consiste nel digitare e salvare le 
routine in linguaggio macchina con TMLX. L'MLX vi chiederà due 
numeri. Rispondete nel modo seguente: 

STARTfNG ADDRES5: 49152 
ENDING ADDRESS: 52040 

Poi cominciate a digitare i dati, utilizzando le istruzioni fornite col 
programma MLX, 

lì passo seguente consiste nel digitare e salvare fSAVE) il pro¬ 
gramma in BASIC. 

Il modo migliore di registrare le due parti di questo programma è 
quello di registrare su nastro prima la parte in linguaggio macchina 
ed immediatamente dopo la parte in BASIC, 

Come caricare il programma 

Dopo aver registrato entrambe le parti potete caricare il program¬ 
ma: per prima la parte in linguaggio macchina con 
da disco: LOAD'W'AI 
da nastro: LOAD" ",1,1 
dove nf è il nome del file. 

Scrivete NEW e caricate la parte in BASIC, come fareste con 
qualunque altro programma in BASIC, Per cominciare a giocare 
scrivete RUN ed il gioco comincerà, 

ZUIDER ZEE 

100 FORI = 0TO27:FOKE54272 + 1,0sNEXT:POKE5326 
4,0 
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Ì10 IFPEEK(4916T >=76TREMI 20 

115 PHXHT !T {GIU 1 )ERRORE - { 2 SPAZI}NON HAI 
CARICATO LA ROUTINE 1 ' 

116 PRINT"{GIU T }{ 10 SPAZI}IN LINGUAGGIO M 
ACCHINA": END 

120 PRINT" {CLR} {BLK} @ @ 

1 30 5YS49161 :SYS45164 :POKE53272, 4:POKE64S f 

1 28 

140 PRINT"{CLRJ[GRNpCHftS ( 8}CHR$ (1 4) t P0KE5 
32 80 r 0 :POKE 5 32 81 ,0 
150 POKE55,0:POKE56n20:CLR 
160 GOSUBl040 
170 ; 

180 REM LOOP PRINCIPALE 
190 SYS49167:SYS49l70 

200 IFPEEK ( 908) THENPOKE851 r 1 ; GOSC1B41 0 iPOKE 
851 ,0 

210 IFPEEKf844)=0 THEn220 

21 5 FN-PEEK(344)-2 :POKE85l,1 :GOSUB660:PF[P 
N)= PF ; POKE8 4 4,0 :POKE8 51,0:GOSUB560 
220 iFPEEKf845)=0THEN260 
230 PF(PEEK(845)-2)-Q;PGKE84 5, 0 

2 4 0 POKBFQ,20 :POKEAD,0 ;POKESR, 2 4 3 :PGKECT, 1 

7 :POKECT ,16 
250 GOSUB560 

260 IFPEEK (908)-0ANDPEEK(851 ) -0THEN3QQ 

270 FORPN“1T04:IFPF(PN)=0THEN290 

280 GOSUB670 :PF(PN)-PF 

290 NEXT:POKE851,0 ;POKE908,0 

300 GOSUB870: 5YSHM:Hi=FND{690):P=Hl/HO 

310 IFP>-1 THEN2410 

320 IFINT(P*100)<3THEN261 0 

330 GO$UB560:SC=SC+INT{MD*P) 

340 GBTA3:IFA$ = ""THENl 90 
350 XFA$ = 11 A " THEN2 62 0 
360 IFASO"(Fi}"THEN190 

370 POKE53280,14:POKE334,0:POKEì98,0iWAITÌ 
98 f1 :POKE!98 F 0 :PQKE334,] :POKE53230,6 
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390 GOTO190 
390 : 

400 REM INONDAZIONE 

410 FS=FND(900):IS-FND(902) 

420 X=PEEK(680):Y-PEEK(631) 

430 IT=PEEK(907);EI^PEEK(906):FL“PEEK(909) 
-33:TL=PEEK(91 0)-33 
440 IFFL<0ORTL>140HFL>14THENRETURN 
450 IFTL<0THENTL=0 

460 POKEX+ Y* 4 0 +$r11:IFFIANDITTHENLV=40;GOT 
051 0 

470 IFTL=FLTHENLV-TLiG0T0510 
480 IFFI0RITTHENLV=7:GOTG510 
4 90 POKEFQ , 8:POKEAD, 0 :POKESF,122 :PGKECT> 12 
9 

500 LV-(TL*XS+FL*FS)/(IS+FS) 

510 IFLV=0THENLV-7 

520 SYSFM,X r Y # 31 ,1 4 : S YSFM ,X , Y, LV+33,1 4 : ?OK 
ECT,123 
530 RETURN 
540 ; 

550 REM INFORMAZIONI 

560 PQKE21 4, 2 3 ;PRINT; PC--[P>.25)-(P>.50)-( 
P>.75)-(P>1) +1 

570 PRINT"{RVS}[YEL} LIV.:"MID$(STR$(SK),2 
) 11 PUNTI:”; 

580 PRINTTAB (14) RI GHT$ ( 11 QQGG00”+MID$ (STR$ ( 
INT{SC/10)*10) f 2) , 6) ; 

590 PRINT" ST: "MID$ t" {REDHCYNHYELHGRN} 

(WHT} " * PC f 1) n {YEL}"; 

600 PRINT” POMPE: 11 ; :F0RI = 1 T04 : PRINTTAB ( 1*2 

+30); 

61 0 IFPFU) THENPRINTMID$ (" {RED) {CYN} { PURj 

{ CRN } 11 ,1,1} MID$ (STR$ (I) ,2) ; :GOTO630 

62 0 PRINT"{YEL} "; 

6 30 NEXT;PRINT" {HOME} fl : RETURN 
640 
220 
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650 REM AVVIO/CONTROLLO POMPA 
660 XP(PN)=PEEK(S48) :YP(FN)=PEEK(849) i DP < P 
N) =PEEK(85Q) 

670 PF=0:X=XP(PN):Y-YP(FN):D=DP(PN) 

680 FP(PN)=X+40*Y+S**D(D):TP(PN)=X+40*Y+S+D 

(D) 

690 FC=PEEK(FP(PN) ) ;IFFO11ORFC=320RFO31T 
HENFC = 4 0 

700 FC=FC-33:IFFC<00RFC>14THENRETURN 
710 TC=PEEK(TP(PN))sIFTC=11 ORTC= 320RTC=31T 
HENTO40 

72 0 TC=TC-33 *IFTC< 0THENTC=0 
730 IFTOI 4THENRETURN 

740 NX=X-XD[D):NY=Y-YDCD):SYSFM,NX,NY,11 f 1 

4 

750 SYSFM r MX,NY,FC+33,1 4 

760 MF(PN)=0 :IFPEEK(90 5)-0THENMF(PN)=1/FND 
(690)*(8-SK/2) 

770 NX=X+XD CD):NY-Y+YD(D) ;SYSFM,NX,RY,11,1 
4 

780 IFPEEK f FP(PN)}-11THENSYSFM,NX,NY,TC+33 
,14:MF(PN)= 0 :MT(PN)=0:GOTO810 
790 SYSFM,NX f NY r TC+33,14 

800 MT(PN) -0:IFPEEK(905)=0THENMT(PN)=1/FND 
(690)*(8-SK/2) 

810 IFPF(PN)THEN840 
820 FL(PN)*0:TL(PN)=0 

830 POKEFQ,3G:PGKEAD,0:POKESR,243:POKECT,1 
7 :POKECT t 16 
840 PF”1 : RETURN 
850 t 

860 REM AZIONAMENTO POMPE 
870 FORI-1T04;IFPF(I) "QTHENl 010 
880 Cl-0:CF=0:FL(I)=FL(I)+MF(I}ìTL(I)=TL(I 
)+MT(I) 

890 IFFL(I)C1THEN920 

900 CF = 1 iFL(I)=FL(I)~1 ;FC = PEEK(FP(I))-34:1 
FFC<0THENFC“-33:PF[I)«0 
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910 IFFOl 4THBNPF (X) =0 : FC=1 4 
920 IFTL(I) < 1THEN950 

930 C1=1 iTLtl) =TL(I)- 1 :TC-PEEK(TP(I) ) - 3 2 ; I 
FTOl 4THEWTC = 1 4:PF(I) =0 
940 IFTC < OTEEN P F ( I ) -0: TC - 0 
930 IFWF( I) =OORCF"OTHEN980 
960 XN=XP 11)-XD(DP(1)5 :YN=YP(I)-YD(DP{I)) 
970 POKE351,1 :SYSFM,X»,YH,11,12:SYSFM,XN,Y 
N,FC+3 3/1 4+ (FC=-33) ;FOKE851,0 
980 XFMT(I)=OORC1-OTHEN101 0 
9 90 XN-XP{I)+XD{DP(I)):YN=YP(I)+YD(DP{I) ) 

1 00 0 P0KF8S1 , 1 :SYSFM # XN,YN, 1 1 r 1 2:SYSFM,XN, 
YN t TC+3 3 1 14 ì PGKE8 51 ,0 
1010 NEXT:RETUR» 

1020 : 

1030 REM INIZIALIESAZIONE 
1 040 PRINT" {CLR} 1 ' ; 

1 050 JY- 5 6 32 0 :IFPEEK(1 02 4)=OTHENGOSUR2G9G 
1060 I=RND(-RHD(0)) 

1070 DIM XO(7) f Xl(7),Y0(7),Yl(7),XP(4),YF( 
4) ,DP ( 4 ) 

1080 DIM PF(4) f FL(4),TL(4),FP(4} f TP(4),MT( 
4) f MF ( 4 ) 

1090 S=32768:0=22528;FM=49152;RX*4 9155:HM= 
491 58 

1 1 00 FQ= 54 2 80 :AD= 54 2 84 :SR-54 2 85 :CT=542 83 

1110 DEFFNR{X)= XNT(RND(1)*X) 

1120 DEFFND(X) -PEEK(X)+256*PEEK(X + l ) 

1130 REM DATI DEGLI SPRITE 

1140 IFPEEK(102 4)THENFORI = 1T06C5:READA:»EX 
TiGOTOI220 

1150 POKE1 024,1 : FORI=0TO25 :SQ=3481 6+1*64:J 
= 0 

1160 READA:IFA< 0THENSQ=SQ-A :J=J-A: GOTO! 1 80 

1170 POKESQfA:SQ=SQ+1;J=J+1 
1180 IFJ<63THENl 1 60 
1190 NEXT 
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ì 200 FRINTSPC(5)" PREMI IL FUOCO PER CONRI 
NUARE {SU} fl : GQSUB2750 
1210 GOSUBl990 
1 220 POKE532 72,8 
1 2 30 REM CARATTERI 

1 24 0 PRINT"{CLR} {GRH } 1T : FORI = 1 TO1 2 ; RE ADB : FO 
RJ=0TO7 t READA 

1 250 P0KE4O 960+B* 8+J,A :NEXT:NEXT 
1260 FORI= QT03iREADXD(I), YD ( 1):NEXT:FORILO 
T03;READD(I):HEXT 

1 2 70 POKE53 280, 6:POKE53 2 81 , Q:SK-PEEM1 02 6) 

:GOSUBl360 
1280 P0KE53269,251 

1 290 A= 0 ;FORI = 5 3 2 54 T05 3 2 605TEP2 ;POKEI,162 + 
A:POKEI+1,132:A=A+2:NEXT 
1300 A-2:FORI=53290TO53293:POKEI f A:A=A+1:N 
EXTiFORI = 3 3 786T033790 :POKEI,4 6 :NEXT 
1310 TT-G:MD-3+SK*2:MR=26+52*(SK-1) 

1 320 SC=FND(1 027) *1 0 

1 330 POKE904 ,MD:FOKE91 2 ,MR:POKE834 ,1 : RETUR 
N 

1 340 : 

1350 REM CREA UN'ISOLA 
1 360 POKE2 1 4,23: PRINT : FRI NT 11 { RVS} { YEL) 

{ 39 SPAZI){HOME}"; 

1 370 POKE33767,160 :POKE56295 ,7 
1 380 GOSUB560 

1 390 SYSFM,RND{1)*40,RND(1)*2 5,0, 1 3 
1 4 00 SYSBX,18,9,21,12,64,14:5YSFM,19,10,1, 
9 ;POKES,0 : PO KES +C,13 

1410 POKE4Ì 9+S,1 :POKE420+S,2:POKE459+5,64 : 
POKE4 5 9+S+C,13 

1 420 POKE460+S,3 :POKE460+S+C,13 
1430 REM DAMS 
1440 FORI = QT07 

USO X0-FNRM 0) *3*XI =X0+ (FNR( 1 0) +1 )*3:IFX0 
=00RX1>3 8THEN1450 
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ì 4 60 Y0 = FNR(7)* 3 : Y1=YD+{FNR(7)+1 } *3:IFY0=0 
ORYl> 2 3THEN14 60 

1 4 70 SYSBX,X0,Y0,X1,Yl,64,14 :X0(I)=X0:YQ11 
)=Y0:Xl tX>-XI :Yl (I)=Y1:NEXT 
1480 SYSFM,0,0,5,13 
1490 REM ALBERl/CASE 
1500 FORI=1TO30 

1 510 X=FNR{37)+1:Y"FWR(22) +1 :T=X+Y*4G+S 
1 52 0 IFPEEK(T)=QORPEEK(T)=5THENPOKET,3 
1 530 NEXT 
1 540 FORI = 0 TO 9 

1 550 X" FNR(37)+1 :Y-FNR{22}+1 :T=X+Y*40+S 
1 560 IFPEEK(T)THENi 550 

1 570 POKET, 4 :POKET+C , 11:POKE5232Q+I,X:POKE 
52352+1,YiNEXT 
1580 REM ACQUA/TERRA 

1590 SYSFM,0,0,40,14:SYSHM;H0=FND { 690 ) :ID~ 
INT(H0*SK/lO) 

1600 REM LA PRIMA FALLA 
1610 R=Q;K-QìF2=0:NT-4 

1 620 FORI-0T0?:GOSUBl 760 :1FR=5THENI=8 
1 630 NEXT:K-K+1 :IFR<5ANDK<5THEN1620 
1640 REM ALTRE FALLE 

1 6 50 F2 = 1 :SYSFM, 0, 0,32,14 :SYSHM'Hi“FND(690 
):IFHD-ID>HlTHENl720 
1660 SYSFM,0,0,40,14 

1 670 I-(1+1)AND7 :GOSUBl 760:IFFTHEHl670 
1 680 IFFl=0THENPOKET,64 : GOTO1670 
1 690 SYSFM, 0,0,32, 14 : SYSHM: H2-FND ( 6 "9 0} 

1 700 IFH1-H2< 3THENPOKET,64;GOTO!660 
1710 IFH0-ID<H2+1THENH1=H2:GOTOl660 
ì 720 SYSFM,0,0,40,14 
1730 RETURN 
1740 : 

1750 REM FALLA 

1760 Fi=0 :F=1 :J=0:DI=(RND (1)>.5) 

1770 IFDITHEN1300 
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17SO Y0=Y0[I) t X-X0{X):IFRND(1)>.5THENX-X1 ( 
I) 

1790 GGT0181O 

1800 XO-XO(I);Y=YG(I):rFRND(Ì)>.5THENY=Yl( 
I> 

1810 J-J+1 ;1FJ>MTTHENRETURM 
1320 IFDITHENl890 

1 830 Y1 = (Y+FNR{Y1(I> - Y-2) +1 ) :T=YÌ*4Q+X+S 
1 840 IF{Y1>9ANDY1<13)AND{X=180RX-21 ) THENl 8 
1 0 

1850 IFPEEK(T+1)=640RPEEK(T-1)"64THEN1810 
1 860 IFPEEK (T+40) O640RPEEK (T-40) O640RPEE 
K (T) < > 64 THE Ni SI 0 

1 870 IFF2AUDPEEK(T+1)= 4 0ANDPEEK(T-1)=4QTHE 
Ni 81 0 

ISSO GOTO!930 


1 890 

1900 

1 91 0 

1 920 

1 930 
1 940 

1 950 
1 960 

1 970 
) 980 
1 990 


2000 
201 0 


XI=X+FNR(X1 (Il-X-2)+1 :T*X1+Y*40+S:IF( 
XI>17ANDX1<22)AtìD(Y=90RY^12)THENlSI 0 
IFPEEK(T+40)=640RPEEK(T-4Q)=64THENl81 
0 

IFPEEK(T+l )<> 640RPEEK(T-1 )<>640RPEEK( 
TI 064THEN1 81 0 

IFF2AKDPEEK(T+40)=40ANDPEEK(T-40)= 40T 
HEHl 810 
PL=0:F=0 

IFPEEK(T+4 0)=4 OORPEEK(T-4 0)=40ORPEEKf 
T+1 1 =40ORPEEK { T-1 ) =4GTHEMPL=4 0 : Fi *1 
IFF2THENPL=6 

POKET+C,13-{PL= 4 0) :POKET,PL:R=R+1 :RET 

URN 

* 

* 

REM LIVELLO/TITOLO 

SK= 1 : FRINT' 1 (CLR} 11 SPC (14) CHR$ (142) " 
(GRN}{ 2 GIU*}ZUIDER{ 2 SPAZI}ZEE":PR 
INTSPC ( 1 4) n { 3 GIU* }LIVELLO 11 
PRINTSPC (12) 11 {GIU 1 } tRVS} 1 (OFF} 2 
( 2 SPAZX} 3 { 2 SPAZI}4{ 2 SPAZl)5 " 
J=FEEK(JY):IFJ=127TUEN2010 


i 
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2020 PRINTSPCi 9+SK*3)’MSU} "5K" {SIN] 11 

2030 IF(JAND4)=0THENSK=SK-1 : IFSK< 1THENSK=5 

2040 IF(JANDB)=0THENSK=SK+1:IFSK>5THENSK=Ì 

2050 PRINTSPC(9+SK*3}"{SU} {RVS}"SK” {Siti] " 
: IF £ JANDl 6)THEN2010 

20 60 PRINT" {CLR}" : POKEl 02 6 , SK : RETURN 
2070 : 

20SO REM ISTRUZIONI 

20 90 PRINT" {CLR}{ 4 GIU 1 } " S PC ( 1 4 ) 11 ZU1DER 
Z{ 2 E}" 

2100 PRINT^GIU 1 ] IL TUO VILLAGGIO IN CLAN 
DA E r STATO” 

2110 PRINT" COSTRUITO SULLA TERRA SOTTRATT 
A AL" 

2120 PRINT" MARE * DELLE ALTE DIGHE LO PROT 
BGGONO" 

2130 PRINT" DALL*INONDAZIONE, MA UNA TERRI 
BILE" 

214 0 PRINT" TEMPESTA SI AVVICINA. COSI 1 PI 
OGGE E" 

2150 PRINT" ONDE GIGANTESCHE APRIRANNO DEL 
LE" 

2160 PRINT" FALLE NELLE DIGHE, ED IL VILLA 
GGIO" 

2Ì70 PRINT" SARA 1 SOMMERSO* TU SEI IL RESP 
ONS ABILE" 

2180 PRINT" DELLE RIPARAZIONI ALLE DIGHE E 
DEVI" 

2190 PRINT" POMPARE FUORI L'ACQUA." 

2200 PRINTSPC (5) 11 [ 2 GIU T }PREMI IL FUOCO P 
ER CONTINUARE: 11 :GOSUBT750 

2210 ; 

2220 PRINT"{CLR} USA IL JOYSTICK PER GUIDA 
RE IL CAMION 77 

2230 PRINT" SULLA SOMMITÀ 1 DELLE DIGHE. P 
OTREBBE" 
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2240 PRINT" ESSERE IMPOSSIBILE PASSARE SU 
DELLE 11 

2 2 50 PRINT" DIGHE CHE STANNO PER CADERE. 
RICORDA*' 

22 60 PRINT*' CHE PUOI RIPARARLE ROVESCIANDO 
CI SOPRA" 

2270 PRINT'* DEL MATERIALE, LH DIGHE COMINC 
IANO A" 

2 2 80 FRI NT*' CADERE PRIMA CHE Vi SIANO DEI 
SEGNI" : PRINT IT VISIB tLI « " 

2290 PRINT"{GIU 1 } PREMENDO IL FUOCO SI PUÒ 
1 AVERE UNO DI" 

2300 PRINT" QUESTI TRE EFFETTI PRINT" 

{GIU 1 } 1) CARICARE LA POMPA SUL CAMIO 

N* " 

2310 PRINT" 2) SCARICARE LA POMPA DAL GAMI 
ON * " 

2320 PRINT" 3) SCARICARE DEL MATERIALE DI 
RIPORTO" 

2330 PRINT"{ 4 SPASI} DALLA SOMMITÀ* DELLA 
DIGA, 1 * 

2340 PRINT"{GIU 1 } PUOI USARE QUESTI DUE TA 
STI ! ” 

2350 PRINT"{GIU 1 } 1) T F1* FERMA IL GIOCO; 
PREMENDO UN" 

2360 PRINT"{ 4 SPA£l}TASTO IL GIOCO PUÒ* C 
ONTXNUARE." 

2 370 PRINT*' 2) 1 A 1 FA TERMINARE IL GIOCO," 

2380 PRINTSPC(6)"{GIU 1 }LA TEMPESTA SI AVVI 
CINA 1 {SU}* 1 : RETURN 
2390 : 

2400 REM LIVELLO SUCCESSIVO 

2410 POKE834,0 : PRINT 11 {HOME} {RVS} (BLU) 

{ 4 SPAZI}HAI LASCIATO INONDARE L*XSO 
LAI■":POKE54283 f 0 

2420 POKEFQ,20:POKEAD,0 rPOKESR,240 
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2 43 0 B = G : FORI=GTO& : B-B- ( PEEK ( 523 84 + 1) =0):N 
EXT ;B=INT( P* 1 Q00*SK)-fB*5Q0 
2435 FORSC=SCTGSC+BSTEP7 5 :GGSUR560 :POKECT, 
3 3 :PQKECT,32:NEXT 
2440 FORI = 1T0750 :NEXT 

2450 PRIWT" {CLR} {GRN} ,f : PO KE 5 3 2 7 2 , 6 : POKE5 32 
SO,0:POKE53281,Q:POKE53269,0 
2460 FRINT"FUNTI:"MID$(STR$[INT(SC/Ì 0) *1 0) 
, 2 ) 

2470 PRINT ,f { 2 Gru 1 } SEI RIUSCITO A SALVAR 
E L'INTERA ISOLA*" 

2480 PRINT 11 PER AVER RAGGIUNTO QUESTO MAGN 
IF ICO 11 

2 490 PRINT 11 RISULTATO VERRAI PROMOSSO \ n 
2500 PRINT' 1 {GIU 1 } UN'ALTRA TEMPESTA, ANCOR 
A PIU’ FORTE SI 1 '? 

2510 PRINT" AVVICINA, E TI E T STATA ASSEGN 
ATA" 

2520 PRINT 11 UN’ISOLA CHE HA SOFFERTO UN DA 
NNO" 

2530 PRINT" ANCOR MAGGIORE DELLA PRECEDENT 
E*" 

254 0 PRINTSPC(15}"{GIU 1 ]BUONA FORTUNAI" 
2550 FRINTSPC [5) " { 4 GIU 1 "} PREMI IL FUOCO P 
ÈR COMINCIARE” 

2560 POKEl027,(SC/101AND255:POKEl028,SC/25 
60 

2570 GO S UB 2 7 5 0 : S K= S K+1 :IFSK>5THENSK=5 
2580 POKEl026,SK:RUN 
2590 : 

2600 REM L’ISOLA E 1 SOMMERSA 
2 61 0 POKE8-3 4,0 : PRINT" { HOME } {RVSJ { BLU} 

l 4 SPAZI IL 1 INTERA ISOLA E ! STATA SOM 
MERSA!! ":POKE54283,0 

262 0 POKEFQ,15:P0KEAD,17:P0KESR,250 :POKECT 
, 33 

2 6 30 FORICIT0250 ;NEXT:POKECT,32 :FORI = ì T075 
0 ;NEXT 
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2640 POKE834,0;PRINT”{CLRÌ{GRN } ";FOKE53272 
,6 :FOKE53280,G tPQKE532Sl , Q:POKB53269, 
0 

2650 PRINT”[GIU 1 }{ 2 SPAS1}PUNTEGGIO 

{ 3 SPASI):"MID$<STR$(TnT(SC/10)*10) , 

2 ) 

2660 PRIHT"{ 2 GIU 1 }NON SEI RIUSCITO A SAL 
VARE L'ISOLA" 

2 670 PRlNT r, E SEI STATO RIMOSSO DAL TUO GRA 
DO 11 

2680 FRINT"DI RESPONSABILE DELLE DIGHE * 11 

2690 PRINT"{GIU 1 }FORSE TI SERVE SOLO UN PO 
f PIU' DI 1 ' 

2700 PRINT"PRATICA ; VUOI RIPROVARE? 11 

2710 PRINTSPC ( 4 ) " { 2 GIU'Ì PREMI IL FUOCO P 
ER RICOMINCIARE" 

2715 PRINT" {GIU 1 } 1 A 1 PER FINIRE E T _I 1 PER 
LE ISTRUZIONI^ 

2 716 GETA3TIFA$ = "A"THENPOKE648,4 ;POKEl 02 4, 
0 : SYS1024 

2717 IFA$<>"I"THEN271 9 

2718 GOSUB2090: PRINTSPC (5) "PREMI IL FUOCO 
PER CONTINUARE": GO$UB2?5G : GOTO2640 

2719 IFPEEK(JY)AND16THEN2716 

2720 IF(PEEK[JY)ANDl6)=0THEN2720 

2 721 POKEl 02 7,0:POKEl028 f 0 :SC-0 :GOSUB2750 : 
GOSUBl990 :RUM 

2730 : 

2740 REM FUOCO? 

2750 IFPEEK(JY)ANDl6THEH2750 

2760 IF(PEEK{JY)ANDl6)=OTHEN2760 

2770 RETURN 

2780 : 

2790 REM SPRITE 

2800 REM CAMION 

2810 DATA -25,60,-2,126,-2,126,-2,126,-2,1 
26,-25 
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2820 DATA -25,126,-2,126,-2,126,-2,126,-2, 
60,-25 

2830 DATA -25,63,-2,255,-2,255,-2,255,-2,6 
3 -2 5 

2840 DATA -25,252,-2,255,-2,255,-2,255,-2, 
252,-25 
2850 : 

2860 REM ELICOTTERO 

2870 DATA -10,60,-2,102,-2,102,-2,126,-2,1 
26,-2,60,-2,60,-2,60,-2 
2880 DATA 24,-2,24,-2,24,-2,24,-2,24,-2,8, 
-2,56,-10 

2890 DATA -10,56,-2,8,-2,24,-2,24,-2,24,-2 
,24,-2,24 

2900 DATA -2,60,-2,60,-2,60,-2,126,-2,126, 
-2,102,-2,102,-2,60,-10, -63 
2910 DATA -24,7,128,0,15,240,0,9,255,224,9 
,255,160,15,240,32,7,128,0,-21 
2920 DATA -9,3,128,0,7,192,0,12,96,0,12,11 
2,0,7,240,0,3,248,-2,124,-2 
2930 DATA 60,-2,14,-2,7,-2,3,128,0,1,192,- 
2,96,-2,192,-12 

2940 DATA -14,192,-2,96,0,1,192,0,3,128,0, 
7,-2,14,-2,60,-2,124,0 
2950 DATA 3,248,0,7,240,0,12,112,0,12,96,0 
,7,192,0,3,128,-10, -63 
2960 DATA -22,1,224,4,15,240,5,255,144,7,2 
55,144,0,15,240,0,1,224,-24 
2970 DATA -10,3,128,0,7,192,0,12,96,0,28,9 
6,0,31,192,0,63,128,0,62,-2,60,-2 
2980 DATA 112,-2,224,0,1,192,0,3,128,0,6,- 
2,3,-14 

2990 DATA -9,3,-2,6,-2,3,128,0,1,192,-2,22 
4,-2,112,-2,60,-2,62,-2,63,128 
3000 DATA 0,31,192,0,28,96,0,12,96,0,7,192 
,0,3,128,-12 
301 0 : 
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3020 REM POMPE 

3030 DATA -22,24,-2,60,-2,126,-2,255,-2,21 
9,-2,24,-2,24,-2,24,-19 
3040 DATA -22,24,-2,24,-2,24,-2,219,-2,255 
# -2 f l 26,-2,60,-2,24,-1 9 
3050 DATA -22,24,-2,56,-2,112,-2,255,-2,25 

5, -2,112,-2,56,-2,24,-19 

3060 DATA - 22 , 24 ,- 2 , 28 ,- 2 , 14 ,- 2 , 255 ,- 2,255 
,-2,14,-2,28,-2,24,-19 
3070 : 

3080 REM ROTORE DELL'ELICOTTERO (QUADRI 0- 
7} 

3090 DATA 0,24,-2,24,-2,24,-2,24,-2,24,-2, 
24,-2,24,-2,24,-2,24,-2,24,-2,24 
3100 DATA -2,24,-2,24,-2,24,-2 r 24,-2,24,-2 
,24,-2,24,-2,24,-2,24,-2,24,0 
3110 DATA -3,3,-2,3,-2,1,128,0,1,128,-2,19 

2, -2,192,-2,96,-2,96,-2,48,-2,56 
3120 DATA -2,28,-2,6,-2,6,-2,3,-2,3,-2,1,1 

28,0,1,128,-2,192,-2,192,-3 
3130 DATA -9,24,-2,12,-2,6,-2,3,-2,1,129,- 
2,192,-2,112,-2,24,-2,14,-2,3,-2,1 
3140 DATA 128,-2,192,-2,96,-2,48,-2,24,-9 
3150 DATA -18,96,-2,60,-2,7,-2,1,192,-2,12 

6, -2,3,128,-2,224,-2,60,-2,6,-18 
3160 DATA -30,255,255,255,-30 

3170 DATA -20,6,-2,60,-2,224,0,3,128,0,126 
,0,1,192,0,7,-2,60,-2,96,-20 
3130 DATA -11,24,-2,48,-2,96,-2,192,0,1,12 
8,0,3,-2,14,-2,24,-2,112,-2,192,0,1 
3190 DATA 128,0,3,-2,6,-2,12,-2,24,-11 
3200 DATA -5,192,-2,192,0,1,128,0,1,128,0, 

3 , - 2 , 3 ,- 2 , 6 ,- 2 , 6 ,- 2 , 12,-2 

3210 DATA 24,-2,48,-2,96,-2,96,-2,192,-2,1 
92,0,1,128,0,1,128,0,3,-2,3,-5 

3220 : 

3230 REM CARATTERI 
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3240 DATA 0,255,204,0,51,255,204,0,51 
3250 DATA 1,255,250,238,235,238,250,255,85 

3260 DATA 2,253,189,237,173,237,189,253,B5 


3270 

3280 

3290 

3300 

331 0 

332 0 

3330 

3340 


3 3 50 
3360 
3370 
3380 
3390 


DATA 3,0 # 60,2 55,2 55,2 55,2 5 5,60,0 

DATA 4,85,255,255,168,255,255,69,69 

DATA 5,255,204,0,51,255,204,0,51 

DATA 6,0,0,0,0,0,0,0,0 

DATA 10,0,90,90,60,60,60,0,0 

DATA 1 1 , 255,2 55, 2 55, 255, 25 5, 2 55, 2 55 , 2 

55 

DATA 12,85,0,60,60,60,60,0,85 

DATA 31,255,255,255,255,255,255,255,2 

55 

DATA 64,0,0,0,0,0,0,0,0 

m 

m 

REM DIREZIONI 

DATA 0,-1,0,1,-1,0,1,0 

DATA -40,40,-1 ,1 


ZUIDER ZEE - seconda parte (DATI PER MLX) 

49152 : 076 , 021 , 192 , 076 , 175 , 192,220 
49158 :0 76 , 060 , 193 , 076 , 139 , 193,231 
4 91 64 ! 076,02 3 , 202 , 076 , 205 , 193 , 019 
4 9170 : 0 76 , 226 , 194,03 2 , 116 , 193,087 
491 76 : 141 , 000 , 205 , 032 , 116 , 1 93 ,199 
491 82 : 141,0 00 , 206 , 032,1 16 , 193,206 
491 8 8 :1 33 , 002 , 032,1 16 , 193 , 133,133 
4 91 94 ;01 0 , 169 , 000 , 141 , 137 , 003,246 
4 92 00 :1 41,1 79 , 002,1 33,01 3,1 69 , ì 73 
4 92 06 : 001,141 , 143 , 003,141 , 178,149 

4921 2 : 002 , 133 , 009 , 1 62 , 003 , 024,137 
4 921 8 si 8 9 , 243 , 202,1 64,01 3,1 21,230 

4922 4 ; 000 , 206 , 1 41 , 1 83 , 002 , 201,03 7 
4 9230 : 024 , 176 , 072 , 024 , 189 , 247,042 
232 
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49236 :202,121,000,205,141,182,167 
49242 i002,201,040,176,058,172,227 
49248 :183,002,185,000,207,133,038 
49254 ;15B,185,064,207,133,159,240 
49260 :172,182,002,177,158,201,232 
49266 :064,176,041,197,002,240,066 
492 72 : 037,1 65,002,032,043 r 1 93,080 
492 78 : 238 r 1 78,002, 20 8,003,238,22 5 
49284 :179,002,164,009,173,182,073 

492 90 : 002,153,000, 205,1 73,1 83,086 
49296 ;002,153,000,206,230,009,232 
49302 : 0 76,1 58,1 92,169,001 , 1 41 ,1 1 9 
49308 :137,003,202,016,160,230,136 
4 931 4 :01 3,1 66,009,228,01 3, 20 8, 031 
49320 :150,169,000,141,143,003,006 
4 9326 : 096,160,000,132,01 8,032, 100 
49332 :116,193,164,018,153,180,236 
4 93 38 :002,2 00,192,004,208,241, 00 9 
4 93 44 : 032,1 1 6, 193,133,002,032,188 
493SO :116,193, 1 33, 01 0,ì74,3 83,239 
4 93 56 : 002,1 8 9,0 00,20 7,1 33,253,220 
4 93 62 ri 89,064, 20 7,1 33,2 54,1 74,207 
49368 :181,002,189,000,207,133,160 
49374 ;158,189,064,207,133,159,108 
4 93 80 ;1 72,180,002,165,002,032,03 3 

493 36 i025, 1 93,200,204,1 82,002,01 6 
4 9392 :208,245, 1 74,181 ,002,238, 008 
4 9398 :1 83,002,1 89,000,207, 1 3 3, 1 92 
49404 :158,189,064,207,133,159,138 
4 941 0 :1 65, 002, 1 72,1 80,002,032,043 
49416 1043,193,165,002,172,182,253 
49422 ;002,032,043,193,232,236,240 
49420 :183,002,200,224,096,072,037 
4 9434 ri 45,253, 165,2 54,072,073,220 
49440 i088,133,254,165,010,145,059 
4 944 6 :253, 1 04,1 3 3, 2 54,104, 1 4 5, 007 
4 94 52 :1 59,165,159,072,073,O0&,247 
4 94 58 :ì 33, 1 59, 1 65,01 0,14 5, 1 58,0 52 
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49464 il04,133,159,096,169,000,205 
4 9470 il 41 ,178,002,141 ,179,002,193 
49476 :133,158,169,128,133,159,130 
49482 il 69,004,133,018,160,000,046 
4 9488 il 62,000,177,158,201,01 1,021 
4 9494 i 240,01 2,201,031 ,1 76,008,242 
4 9500 : 238,1 78,002,208,003,238,191 
4 950 6 il 79,002,230,158,208,002,109 
4 951 2 :230,1 59,232,224,240,208,1 1 7 
4 9518 :227, 198,018,208,223,096,056 
4 9524 :032,253,174,03 2,158,173,170 
49530 :165,013,240,003,104,104,239 
49536 :096,032,247,183,165,021,104 
49542 :208,246,165,020,096,160,005 
4954 8 :000,1 32,1 58,132,253,1 69,21 6 
49554 :2 08,13 3,159, 169,160,133,084 
49560 :254,120,165,001,041,251,21 6 
49566 :133,001,177,158,145,253,001 
49572 :200,208,249,230,5 59,230,160 
49578 :254,165,159,201,216,208,09 3 
49584 :239,165,001,00 9,004,1 33,21 5 
49590 *003,088,173,000,221,041,194 
49596 ;252,009,001,141,000,221,044 
49602 il 69,008,141,024,208,169,145 
49608 1024,141,022,208,096,173,096 
49614 :ì 73,002,205,136,003,176,133 
4 9620 :081,169,000,141,175,002,012 
4 962 6 il 69,020,141,145,003,173,101 
4 9632 :027,21 2,041,031,201 ,022,246 
49638 :176,247,170,232,142,169,086 
49644 :002,173,027,212,041 ,063,242 
49650 :201,038,176,247,170,232,026 
49656 il 42,168,002,172,169,002,13S 
4 9607 il 85,000,207,024,109,16 8,179 
4 9668 :002,133,158,185,064,207,241 
49674 :1 05,000,133,159,160,000,055 
49680 1177,158,201,064,208,016,072 
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49636 il 69,000,1 41 ,1 74,002,032,02 8 
4 9692 : 0 52, 1 94,1 73,1 74,002,240,095 
4 9698 : 003,032,1 21,1 94,206,1 45,223 

497 04 i003,240,008,174,173,002,128 
4 971 0 s 2 3 6, 1 36,0 0 3,1 44,1 72,096,065 
49716 ;162,003,142,171,002,174,194 
4 9722 il 71,002,173,1 68, 002,024,086 
4 9728 il 25,247,202,072, 1 73,1 69,028 
4 9734 :002,024, 1 25, 243, 202,1 68,066 
49740 il04,024,121,000,207,133,153 
4 974 6 :253,1 85,064,207, 10 5, 000,\28 
49752 :133,254,160,000,177,253,041 
4975 8 :201 ,033,1 44,01 7, 201,048, 226 
49764 i176,013,169,001,141,174,006 
49770 ;0Ù2,173,175,002,240,008,194 
4 9776 ;032,1 00,1 95,206,171,002,050 
49782 :016,193,096,173,173,002,003 
49788 *205,136,003,176,096,160,132 
4 97 94 : 000,200, 192,01 6,240,089,09 9 
4 9800 il 85,000,2 04,208,246,1 52,107 
4 980 6 ? 072,16 9,001,153,000,204,229 
4 981 2 il 73,16 8,002,153,032,204,1 12 
49818 il 73,169,002,1 53,0 64,204,1 51 
49824 :169,006,133,010,172,169,051 
4 9830 :002,1 85,000,20 7, 02 4,1 09,1 81 
49836 :1 68,002,1 33,1 58, 1 S5,064,11 4 
4984 2 :2 07, 1 05,000,13 3, 1 59,1 04,1 1 8 
49848 i024,105,064,072,160,000,097 
4 98 54 : 0 32,04 3,1 93,238, 1 73,002,1 03 

498 60 il 04,1 32,1 59,01 0,03 3,1 59,03 0 
4 9866 :200, 1 92,003,208,248,1 33,1 62 
49B7 2 il 58,165, 159,024,105,160,211 
4987 8 il 33,1 59,1 69,000,160,00 7,0 74 
4 9884 il 45, 1 58,1 36,01 6,2 51,096,2 54 
49890 :173,173,002,240,119,169,078 
4 98 96 : 000,141 ,1 40,003,173,1 36, 057 
4 990 2 ; 003,074,1 41 ,1 45,003,1 69, 005 
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49908 

:00l 

4991 4 

:21 2 

49920 

: 247 

49926 

: 1 89 

49932 

: 0 64 

49938 

: o 3 2 

49944 

: 1 21 

49950 

: 0 64 

49956 

: 1 60 

49962 

: 240 

49968 

:G02 

49974 

: 00 2 

4 9980 

: 2 4 0 

49986 

:1 69 

49992 

; 0 64 

49998 

:1 58 

50004 

= 169 

5001 0 

:1 58 

5001 6 

: 00 3 

50022 

:21 2 

50023 

:096 

50034 

: 1 33 

50040 

: 1 05 

50046 

:01 0 

50052 

: 2 0 8 

50058 

:024 

50064 

= 171 

50070 

= 160 

50076 

:088 

50082 

:255 

50083 

: 2 2 4 

50094 

= 136 

501 00 

; 249 

501 06 

: 24 5 

501 1 2 

: 208 

501 1 3 

; 2 32 

501 24 

= 176 
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141,175,002, 
041,015,201, 
170,232,142, 
000,204,240, 
204,140,169, 
204,141,168, 
000,207,133, 
207,105,000, 
000,177,158, 
01 9,169,000, 
032,052,194, 
240,006,173, 
032,096,174, 
000,157,000, 
204,185,000, 
1 85,064,207, 
064,188,032, 
206,173,002, 
208,149,096, 
205,144,003, 
120,165,001, 
001,173,177, 
064,160,000, 
038,254,200, 
248,133,253, 
105,160,133, 
002,224,002, 
255,200,192, 
177,253,208, 
145,253,076, 
003,208,016, 
043,068,177, 

169,255,145, 
195,160,007, 
025,177,253, 
224,008,240, 
248,189,064, 


173,027,251 
01 5, 240, 206 
177,002,202 
083,188,142 
002,189,012 
002,024,077 
158,185,060 
133,159,186 
201,064,028 
141,174,017 
173,174,163 
140,003,106 
177,002,013 
204,188,016 
207,133,097 
1 33,1 59, 21 6 

204.145, 1 1 8 

206.145, 21 2 
173,027,240 
144,001,043 
041,254,017 
002,024,112 
132,254,067 
192,003,055 
165,254,113 
254,174,220 
208,018,001 
008,240,181 
247,169,018 
245,195,051 
160,003,019 
253,208,040 
253,076,047 
224,001 , 250 
1 62,000, 249 
010,010,154 
203,017,077 
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50130 : 253,145,253,136,016,234,22 3 
501 36 :076,245,195,224,000,208,140 
50142 :022,177,2S3,162,000,232,044 
5014 8 :224,008,240,010,074,176,192 
501 54 :24 8,1 89,056, 203,01 7,253,1 76 
50160 :14 5,253, 13 6,01 6,234,160,160 
SOI 66 :007,1 77,2 53,201,25 5,240,099 
SO I 72 :008,165,001, 009, 001,1 33,057 
50178 :001 ,088,096,136,016,239,066 
50134 :165,001,009,001,133,001 ,062 
50190 :088,169,000,141,079,003,238 

501 96 :1 74,177,002,169,000,1 57,187 

502 02 :000,204,206,173,002,169,01 2 
502 0 8 :003,1 33,01 8, 1 66,01 8, 1 73,031 
5021 4 ;168,002,024, 1 25, 247,202,038 
50220 :141,132,003,072,173,169,222 
50226 ;002,024,125,243,202,141,019 
502 32 si 33,003,1 68, 104,02 4,121 ,097 
50238 :000,207,133,158,185,064,041 
50244 :207,105,000,133,159,173,077 
50250 :1 68,002,056, 253,247,202, 234 
SO256 : 1 41 , 1 34,003,072,173,1 69,004 
50262 :002,056, 253,243,202,1 41,21 5 
502 68 : 1 35,003,1 68,1 04,024,1 21 , 1 35 
50274 :000,207, 1 33,2 53,1 85,064,1 72 
50 2 80 : 207,10 5, 000,1 3 3,2 54,1 60,1 95 
50286 :000,177,158,141,1 41,003,218 
50292 : 201 ,033,1 44,01 3,201,043, 24 4 
502 98 :1 76,009,1 77,253,1 41,1 42,252 
50304 : 003,201,048,144,0 58,198, 01 2 
50310 1018,016,154,174,171,002,157 
50316 il 73,169,002,024,125,243,1 08 
50322 s202,168,185,000,207,1 33,017 
50328 i253,185,064,207,133,254,224 
50334 :173,168,002,024,1 25,247,129 
50340 i202,168,177,253,072,172,184 
50346 ;169,002,185,000,207,1 33.098 
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50 3 52 :253,1 85,064,20 7,1 33, 254,248 
50358 :1 72,1 68,00 2,! 0 4,14 5,253,002 
50 3 64 :076,029,197,172,169,002,065 
50370 :1 85,000,207,133,253,1 85,133 
50376 :064,207,133,254,172,168,174 
503S2 :002,169,1 60,145,253,169,080 
50388 :011 ,133,002,169,006,133,154 
50394 :01 0,1 73,1 32,003,141 ,000,165 
504 00 ;205,173,133,003,141 ,000,111 
50406 i206,032,043,192,173,178,030 
5041 2 1 002,141,132,003,173,179,098 
5041 8 :002,1 41,133,003,173,13 7,063 
50424 t003,141,138,003,173,134,072 
50430 :003,1 41,000,20 5,173,13 5,143 
50436 :003,141,000,206,032,043,173 
50442 :1 92,173,178,002,141,134,062 
504 48 :003,173,179,002,141 ,135,137 
504 54 :003,173,137,003,141,139,106 
50460 :003,169,001,141,140,003,229 
50466 :1 41,079,003,096,1 62,009,012 
50472 :1 89,160,204,208,036,188,001 
504 78 :12 8,204,1 85,000,207,1 33,1 35 
50484 :251,1 85,064,207,133,252,120 
504 90 :1 88,0 96,204,177,251,201,151 
50496 :004,240,014,169,01 0,145,134 
50502 :251,165,252,073,088,133,008 
50508 :252,169,001,145,251,202,072 
5051 4 s01 6,212,09 6,120,173,0 66,253 
50520 :003,208,003,076,049,234,149 
50526 :032,033,197,206,071,003,129 
50532 :208,023,1 69,01 0,1 41,071,21 0 
50538 :003,238,072,003,173,072,1 55 
50544 :003,041,003,141,072,003,119 
50550 ; 168,185,052,203,141,080,179 
50 556 :1 60,173,143,003,208,041,084 
50562 :162,009,188,128,204,185,238 
50568 : 000,20 7,133,251,185,064,20 8 
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505 74 :207,1 33 f 2 52,1 89,096,204,1 98 
50550 :1 77,251,208,016, 1 89, 1 60,1 25 
505 86 :204,008,169,004,040,240,051 
50592 :002,1 69,01 2,188,096,204,063 
50598 si 4 5,251,202,016,217,169,1 42 
50604 : 000,141,067,003,173,000,04 4 
50610 :220,201,1 27,20 8,008,1 69,037 
50616 8000,141,078,003,076,092,062 
5062 2 :199,141,068,003,041,01 6,146 
5062 8 s208,007,169,001,141,067,021 
50634 :003,208,005,169,000,141,216 
50640 :0 78,003,162,000,169,001,1 09 
50646 :044,0 68,003,240,009,01 0,076 
50 652 :232,224,004,208,245,076,1 85 
50658 :2 28, 1 98,1 38,009,032,1 41,204 
50 664 s2 55, 1 31 , 142,1 67, 002,1 42,047 
50670 :170,002,173,067,003,240,1 25 
50676 :008,173,167,002,073,001,156 
50682 si 41,1 67,002,032,1 4 9,1 99,1 72 
50688 si 60,003,173,014,208,056,102 
50694 5249,036,203,141,064,003,190 
50700 :1 44,008,173,016,20 8,041 ,090 
50 70 6 si 28,20 8,001,024,1 73,064,1 04 
50712 5003,106,074,074,141,064,230 
50718 s003,173,015,20B,056,249,222 
50724 8040,203,074,074,071,141,130 
50730 s065,003,032,199,199,208,236 
50736 s 006,136,016,206,0 76,092,068 
50 742 si 99,1 69,001,077,167,002,1 57 
5074 8 si 41,167,002,032,149,199,238 
50754 si 73,01 4,208,05 6,233,012,250 
50760 s072,144,009,173,016,208,182 
50766 s041,128,024,240,001,056,056 
50772 si 04,106,074,074,1 41,064,135 
50778 s003,072,173,015,208,056,105 
50784 5233,040,074,074,074,141,220 
50 790 :065,003,168,185,000,207,21 8 
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50 796 ; 133,251,185,0 64,207,133,057 
50 902 ; 252,104,16 8,1 69,064,145,248 
50 80 8 :2 51,173,06 7,003,24 0,099,185 
50814 :173,079,003,240,094,173,120 
50820 :143,003,208,089,173,083,063 
50 82 6 :003,208,0 84,1 74, 1 70,002,01 1 
50332 :173,065,003,056,253,251,177 
50 83 8 ;202,201,002,14 4, 070,201,202 
5084 4 :023,176,066,ì68, 1 73,0 64,058 
50850 : 003,056,2 53,2 5 5,202,201,108 
50 856 : 001,1 44,054,201 ,03 9,1 76,01 5 
50 862 : 0 50,02 4,121 ,000, 20 7,1 33,197 
50 86 8 : 251 , 1 85,064,207, 105,000,224 
50 87 4 :1 3 3,252,1 60,000, 177,251,1 35 
50 880 ; 2 40,02 5,201 ,01 1 ,240,016, 1 57 
50886 ì201,081,176,023,201,031,143 
50892 ;144,019,201,065,176,009,050 
50 8 98 :201,048, 176,01 1 ,169,001,048 
50904 ;141,083,003,169,064,160,068 

5091 0 ; 00 0,145,2 51,0 76, 092,199,21 7 
50916 :173,067,003,240,115,173,231 
50 922 :0 78,003,20 3,1 1 0, 1 73,069,107 

5092 8 :003,240,0 59,1 72, 076,003,02 5 
50934 :208,100,141,076,003,173,179 
50940 1014,208,056,233,012,072,079 
50 946 :1 44,004,173,01 6, 208, 01 0,04 5 
50 952 il 04,1 06,074,074,1 41,080,075 
50 958 :003,1 73,01 5,208,0 56, 233,1 90 
50964 i040,074,074,074,141,081,248 
50 970 :003,1 73,1 70,002, 141,0 82,085 
50 97 6 : 0 03,1 6 9, 000,141,069,00 3,1 61 
50982 ;169,001,141,078,003,076,250 

50 98 8 :0 92,199,1 7 3,0 77,003,20 8,02 8 
50994 ;041,173,030,203,044,017,051 

51 000 ;208,01 6, 2 51 ,1 73,030,208,174 
5100 6 ;01 0,144,02 7, 074,074,074,20 9 
51012 ;074,1 60,003,0 74,1 76,007,050 
51 01 8 i200,1 92,007,20 3,24 8,24 0,145 
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51 02 4 :011,140,069,003,140,077,008 
51030 :003,1 69, 001,141,078,003,225 
51 036 il 73,069,003,240,04 9,170,028 
51 042 il 88,044,203,1 73,01 6,208,1 62 
51 04 8 i01 0,1 44,006,1 52,01 3,01 6,1 89 
51 054 :208,208,006,152,073,255,244 
51 060 :045,01 6,208,141 ,016,20 8,238 
51066 :1 73,255,1 31,024,105,01 4,056 
SI 072 :157,248,131 ,138,010,170,214 
51078 :173,01 4,208,157,000,203,126 
51084 :173,01 5,208,157,001 ,208,134 
51090 :076,22 5,199,174,1 67,002,221 
51 096 :208,003,206,01 5,208,224,248 
51102 t001,208,003,238,015,203,063 
511 08 1224,002,208,01 3, 206,01 4,063 
51114 i208,01 6,008,1 73, 01 6,208,031 
51120 i041 , 1 27,1 41 ,01 6,208,224,1 65 
51126 1003,208,01 3,238,014,208,098 
51 1 32 : 208,008,1 73,01 6,20 8,00 9,04 2 
51138 :128,141,016,208,096,174,189 
51 144 :065,003,189,000,2 07,02 4,176 
51 1 50 :1 09,064,003,1 33,251,1 89,1 87 
51156 :064,207,105,000,133,252,205 
51162 il 62,000,161,251,201,064,033 
51168 i096,173,052,003,240,003,023 
51174 i0 7 6,028,201,173,061,003,004 
51180 i024,105,001,041,007,141,043 
511 86 ;061,003,024,105,050,1 41,1 1 4 
51192 :249,131,206,075,003,208,096 
51198 :024,173,073,003,073,001,089 
51204 il 41 ,073,003,240,004,169,122 
51210 il 28,208,002,1 69,1 29,1 41,01 9 
51216 i004,212,169,002,141,075,107 
51222 i003,169,000,141,053,003,135 
51228 :173,016,208,024,041,001,235 
51234 :24Q,001,056,173,000,208,200 
51 240 il 06,205,054,003,240,047,183 
51246 :176,024,169,008,013,053,233 
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51 252 :Q03,141,053,003,238,000,234 
512 58 : 208,208,032,1 69,001,01 3,1 77 
51264 :016,208,141,016,208,076,217 
51270 : 0 93,2 00,169,004,013,053,090 
51276 :003 f 141,053,003,206,000,226 
51 2 82 :208,01 6,00 8,169,2 54,045,01 4 
51 288 :0Ì 6, 20B, 1 41 ,01 6, 208,1 73,082 
512 94 : 001,208,0 74,205,055,003,128 
51 300 : 240,02 7,1 76,01 4, 1 69, 002,21 6 
51306 :013,053,003,141,053,003,116 
51312 ; 238,001,208,076, 1 29,200,1 96 
51 318 :169,001 ,01 3,053,003,1 41 ,242 
51 32 4 :0 53,003,206,001,208, 173,000 
51 330 sG53,003,208,060,1 69,001,112 
51 3 36 il 41 , 052,003,1 74,056,003,0 53 
51342 ; 224,01 0,176,045, 189,160,178 
51 348 :204,2 0 8, 04 0, 1 69, 001,1 57, 1 59 
SI 3 54 tl 60,20 4,1 8 8,128,204,1 85,1 99 
51360 ì000,207,133,251,185,064,232 
51366 ;207,1 33,252, 1 8 8,09 6,204,222 
51 372 :1 69,Oli, 1 45, 251 , 165,252, 1 41 
51378 :073,088,133,252,169,014,139 
51 384 ; 1 45,251 , 169,03 0,1 41,070,222 
51 3 90 : 003,076,049,234,024,105,169 
51396 :035 f 141,243,131,174,053,210 
51 402 :003,1 73,001,20 8, 024,1 2 5,224 
51 40 8 ; 025,203,141 ,003,2 08, 1 73,1 93 
51 41 4 :00 0,20 8,02 4,1 2 5,003,20 3,00 9 
51 420 il 41 ,002,208, 173,01 6, 20 3, 200 
51426 :04ì,001,125,014,203,041,139 
51 432 : 001,01 0,141 ,068,003,1 73, 1 1 6 
51 43 8 : 01 6,208, 041 ,253,01 3,06 8,069 
51 444 : 003,1 41,01 6,208,173,01 6,033 
51 4 50 : 208,041 f 0 01 ,208,01 8,1 73, 1 31 
51 4 56 : 0 00,20 3, 2 01,005,176,01 1,089 
51 462 :1 73,021 , 208,041,252,141 ,074 
51468 :Q2Ì,208,076,025,201,173,204 
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51474 s 021,208,009,003,141,021 ,165 
51 480 :20 8,076,04 9,2 34,169,128,120 
51486 :141,004,212,206,070,003,154 
51492 :240,000,169,255,141,057,130 
51498 :Q03,141,058,003,141,056,188 
51504 :003,173,01 6,208,02 4,041,001 
51 51 0 :001 ,24 0,001,056,1 73,000,01 3 
SI 516 s208,106,074,074,141,059,210 
51522 :G03,173,001 ,203,074,074,087 
51 528 :0 74,1 41 ,060,0 0 3,1 62,009,009 
51 534 :1 89,160,204,208,108,138,111 
51 540 :128,204,140,055,003,185,031 
51 546 :000,207,133,251,185,064,162 
51 552 :207,133,252,188,096,204,152 
51 558 :1 40,054,003,1 77,251,201,1 60 
51 564 :004,240,080,173,0 59,003,155 
51 570 :056,237,054,003,016,005,229 
51576 :073,255,024,105,001,032,093 
51582 :252,201 ,165,252,072,165,209 
515B8 :251,072,1 73,060,003,056, 235 
51594 :237, 055,003,016,005,073,015 
51 600 :255,02 4, 105,001,032,2 52,04 5 
51 606 :201 ,1 04,024,1 01,251,1 33,1 96 
SI 61 2 ; 2 51 ,104,1 01,252,1 33,252,225 
51618 i 205 , 058 , 003 , 144 , 011 , 203,023 
51624 : 022 , 165,2 51 , 205 , 057 , 003,103 
51 630 :1 44 , 002 , 208,01 3 , 165 , 251,1 89 
51636 : 141 , 057 , 003 , 165 , 252 , 141,171 
51642 : 058 , 003 , 142 , 056 , 003,20 2,138 
51 648 :01 6,1 40 , 174 , 056 , 003 , 224,037 
51 654 : 255 , 24 0 , 025 , 189 , 096 , 204,1 83 
51 660 :01 0,01 0 , 024 , 105 , 008,1 41,246 
51666 : 054 , 003 , 189 , 128 , 204,01 0,030 
51672 : 010 , 024 , 105 , 022 , 141 , 055,061 
51678 : 003 , 076 , 236 , 201 , 169 , 001,140 
51 684 il 41,054,003,169,072,141 ,04 0 
51690 :055,003,169,000,141,052,142 
51696 ;003,141 ,073,003,169,002,1 19 
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51 702 :1 41 ,075, 003,076,049,234,056 
51708 il 34,251,162 r 000,133,252,160 
51714 il 68,240,011,169,000,024,102 
51720 :101,252,144,001,232,136,106 
51726 :208 r 247,134,252,166,251,248 
51 73 2 il 33,251,096,1 69, 1 43, 141,1 85 
51738 :024,212,169,255,141,014,073 
51 74 4 : 21 2, 141 ,01 5,21 2,1 69,240, 2 53 
51750 ; 1 41 ,020,21 2,1 69,1 29,1 41 , 0S2 
51 75 6 :01 8,21 2,1 69,0 50,141 ,000,1 22 
51762 i 212,169,017,141,005,212,038 
51 76 8 il 69, 24V, 141,006,21 2, 1 69,226 
51 774 :000,1 41 ,173,002,1 41,076,083 
51 780 :003, 1 41,077,003,141,0 61 ,238 
51 7 86 : 003,1 41,035,20 8,1 69,006,124 
51 792 il 41 ,032,208,169,001, 1 41,004 
51798 s046,208,141,039,208,141,101 
51 804 :040,208,1 41 ,071,003,141,1 84 
51 81 0 ;079, 003,1 69, 1 66,1 41 ,01 4, 1 58 
51 81 6 :208, 1 69,1 32,141,01 5,208,209 
51822 ;169,000,141,000,208,169,029 
51 82 8 :144,141,001,203,169,032,043 
51 834 ;1 41,255,1 31,1 69,005,1 41,1 96 
51 840 :0 34,208,141 ,001 , 21 2, 1 69,1 25 
51 84 6 :1 28,1 41 ,064,207, 1 62,000,068 
51 852 :1 42,000,207,1 89,000, 2 07,1 1 7 
51 358 : 024,1 0 5,04 0,1 57,001,207,ì 68 
51 864 il 57,02 6,207,189,064,207,234 
51 870 :Ì05,000,157,065,207,157,081 
51876 : 0 90,207,232,224,02 4, 208,1 2 5 
51882 :228,1 69, 000,1 60,000,1 53,1 1 2 
51 88 8 : 000,204,174,000,004,208,2 54 
51 394 : 021 ,1 53,000,1 36,1 53,000,1 33 
51 900 ;1 37, 1 53,000,1 38, 1 53,000,001 
51906 il 39,1 53,000,1 4 0,1 53,000,01 1 
51 91 2 il 41 , 1 53,000,1 42,200, 208,02 0 
51 91 8 :224,1 69,2 5 5,1 60,12 7,1 53,014 
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51 

924 

ìOOO 

, 1 61 

, 1 36 

, 01 6 

, 250 

, 1 20 

, 1 27 

51 

930 

:1 69 

,085 

,141 

,020 

,00 3 

,169 

,037 

51 

936 

:1 97 

1 1 41 

,021 

,003 

, 1 69 

, ooo 

,243 

51 

942 

= 141 

, 0 66 

,003 

,141 

,069 

,003 

,1 41 

51 

948 

:1 69 

, 001 

,141 

,0 52 

, 003 

, oaa 

, 1 78 

51 

954 

: 09 6 

,000 

,000 

,255 

,001 

,001 

,083 

51 

960 

: 255 

,000 

,000 

,255 

,001 

,000 

,247 

51 

966 

: 000 

,000 

, 000 

,255 

,001 

,000 

, 2 54 

51 

972 

: 00 0 

,00 0 

, 000 

,2 53 
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,253 

, 252 

51 

976 

: 000 

,002 

,001 

,002 

,000 

,000 

,01 5 

51 

984 

: 0 0 0 

,000 

,255 

, 255 

, 255 

,000 

, 01 3 

51 

990 

: 000 

,00 0 

,000 

,000 

,254 

,002 

, 022 

51 

996 

sOGO 

,001 

,254 

,002 

,000 

,000 

, 029 

52002 

£ 2 54 

,002 

,010 

,01 4 

,012 

,01 2 

,032 

52008 

:040 

,040 

,039 

,041 

,001 

,002 

, 203 

52 

014 

; 004 

,006 

,016 

,032 

,064 

,128 

,042 

52 

020 

:1 02 

,060 

, 1 02 

,195 

,001 

,003 

,003 

52 

026 

: 00 7 

,01 5 

,0 31 

,063 

,127 

,255 

,044 

52032 

: 1 28 

,192 

,224 

,240 

,248 

,252 

,068 

52038 

: 2 54 

,255 

,080 

,255 

,084 

, 2 51 

,225 
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Cos’è un programma? 

Un computer non è in grado di far niente da solo. Come un'auto 
non può muoversi senza benzina cosi un computer ha un poten¬ 
ziale, ma senza un programma non può andare da nessuna parte. La 
maggior parte dei programmi di questo libro è scritta in un linguag¬ 
gio per computer chiamato BASIC il BASIC è facile da imparare ed 
è presente in tutti i Commodore 64. 

Programmi in BASIC 

A differenza della lìngua italiana, che è piena di ambiguità, il 
BASIC ha in genere un solo modo di esprimere qualcosa. Ogni 
ietterà, carattere o numero ha la sua importanza. Un errore comune 
consìste nel confondere la lettera O con il numero 0, la lettera 
minuscola I con i! numero t, ta lettera maiuscola B con il numero fi. 
Inoltre occorre digitare tutti i segni della punteggiatura, come le 
virgole ed i punti e virgola, esattamente come essi compaiono nel 
libro. 

Parentesi e caratteri speciali 

L'unica eccezione a questa regola è quella delle parentesi graffe, 
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come, per esempio, GIÙ. Qualunque cosa racchiusa fra due paren¬ 
tesi graffe è un carattere spedale, o più caratteri che non possono 
ventre stampati facilmente con una stampante. Quando incontrate 
una di queste istruzioni speciali fate riferimento a «Come digitare ì 
programmi» (Appendice B). 

Le istruzioni DATA 

3 n alcuni programmi vi sono unao più sezioni di istruzioni DATA. 
Queste linee contengono delle informazioni necessarie al pro¬ 
gramma. Parte di queste istruzioni DATA sono dei programmi veri e 
propri (in linguaggio macchina); altre sono formate da codici di 
caratteri grafici. Queste linee sono in particolar modo sensibili agli 
errori. 

Se anche un solo numero in una qualunque istruzione DATA 
fosse errato, il computer si potrebbe bloccare. La tastiera ed il tasto 
STOP possono non rispondere più e lo schermo si può cancellare. 
Non lasciatevi prendere dai panico, non si è danneggiato niente. 
Per riacquistare il controllo del computer dovete spegnerlo e poi 
riaccenderlo. Ciò cancellerà qualsiasi programma in memoria, per¬ 
ciò SALVATE sempre una copia del programma prima del RUN- Se 
iE computer si blocca, potrete ricaricare it programma e cercare 
Terrore. 

A volte un'istruzione DATA errata può causare un messaggio di 
errore dopo il RUN. Il messaggio di errore può riferirsi alla linea di 
programma che legge (READ) i dati. L'errore si trova però nelle 
istruzioni DATA. 

Imparate a conoscere la vostra macchina 

Dovreste familiarizzare col computer prima di provare a digitare 
un programma. Imparate le istruzioni per registrare e caricare i 
programmi da nastro o da disco. Vi sarà necessario registrare una 
copia dei vostri programmi, in modo da non doverli digitare ogni 
volta che li volete usare. Imparate ad usare i tasti per Tediting. 
Come correggete una linea dopo aver fatto un errore? Potete sem¬ 
pre riscrivere la linea, ma dovete per lo meno sapere come tornare 
indietro sulla stessa linea. Sapete come ottenere i caratteri in rever¬ 
se, minuscoli e di controllo? E tutto spiegato nel manuale de! vostro 
computer, 
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Un veloce riassunto 

1) Digitate il programma una linea per volta, in ordine. Premete 
RETURN aEla fine di ciascuna linea. Usate il tasto backspace (DEL) o 
il cursore indietro (+-) per correggere gli errori. 

2) Confrontate Ja linea che avete digitato con quella del libro, Può 
essere necessario ricontrollare finterò programma, se dopo il RUN 
si verifica un errore, 

3) Assicuratevi che le istruzioni fra ie parentesi graffe siano state 
digitate, usando i tasti di controllo appropriati (V, «Come digitare i 
programmi»). 


I 
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Molti dei programmi di questo libro contengono dei caratteri di 
controllo speciali (del cursore, per il colore, per il reverse, ecc...). 
Per facilitare il riconoscimento del tasto da premere quando ven¬ 
gono digitati i programmi, abbiamo stabilito Ee convenzioni se¬ 
guenti. 

In genere, in tutti i listati dei programmi per il Commodore 64 si 
trovano tra parentesi graffe le parole che descrivono tutti i caratteri 
speciali: GIÙ significa premere il cursore in giù. 55PAZI significa 
premere la barra spaziatrice 5 volte. 

Per indicare che un tasto dev'essere shiftato (premere il tasto 
SHIFT mentre si preme l'altro tasto), nel listato it fasto appare sot- 
toEineato. Per esempio, 5 significa premere il tasto $ mentre si tiene 
abbassato il tasto SHEFT, 

Sullo schermo apparirà in questo caso il simbolo di un cuore. Se 
un simbolo è sottolineato e racchiuso fra parentesi graffe (p. es.; 
10N), dovete premere il tasto tante volte quante sono indicate (nel 
nostro esempio dovreste premere 10 volte N shiftato). 

Se un simbolo è racchiuso fra parentesi speciali, [< >], dovete 
tenere premuto il tasto Commodore mentre premete il simbolo fra 
parentesi (il tasto Commodore si trova nell'angolo in basso a sinistra 
delia tastiera). Di nuovo, se il tasto è preceduto da un numero, 
dovete premerlo lante volte quante è necessario. 

Raramente troverete una lettera dell'alfabeto racchiusa fra pa¬ 
rentesi, Questi caratteri vengono digitati tenendo premuto il tasto 
CTRL mentre viene premuto il sìmbolo fra parentesi. Per esempio, 
A significa che dovete premere CTRL-A. 

fi modo virgolette: sapete che potete muovere il cursore sullo 
schermo con i tasti cursore. A volte un programmatore può voler 
muovere il cursore sotto il controllo del programma. Questo è il 
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motivo per cui trovate tutti quei IEFT, HOME e BLU nei nostri 
programmi. Il solo modo che ha il computer di distinguere la dif¬ 
ferenza fra controllo del cursore diretto e da programma è l'uso 
delle virgolette. 

Una volta premute vi trovate in modo virgolette, Se digitate 
qualcosa e poi cercate di correggerlo tornando indietro col cursore 
a sinistra, otterrete solo tanti caratteri in reverse. Sono i simboli del 
cursore a sinistra. Il solo tasto di editing che non può essere pro¬ 
grammato è il tasto DEL, che potete usare per tornare indietro e 
correggere la linea. Uscite dal modo virgolette, se le digitate di 

nuovo. , .. 

Potete entrare nel modo virgolette anche quando inserite degh 

spazi (EN$T) in una lìnea. In ogni caso, il modo più facile per uscire 
dal modo virgolette consiste nel premere RETURN. Potete cosi 
uscirne e tornare in su co! cursore per correggere la linea sbaglia- 

Fate riferimento alla tabella che segue quando usate i tasti di 
controllo del cursore e del colore: 


Quando leggete:: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Iclr} 


G 

1 C1 > 1 

30 

1 

a 

tFlOME} 



\<2>] 

30 

1 

PS 

{sui 

canissn 

□ 

l< 3> 1 

BD 


B 

(giu* } 

GEEE 


l< 4> | 

30 



(SIM} 


II 

[<S>J 

30 


É 

(OES ì 



\<6>] 

sa 


■1 

E RVS) 

DEBD 


i<7>] 

30 


□ 

{OFF} 

OD 

■ 

[<S>| 

sa 

i 

• a 
m a 

{ELK} 

froi o 

■ 

IFL} 

m 



fWHT) 

uniti 


{F2| 

m 



{ RED} 

G330 


1F3} 

IB 



{CYN} 

CEBO 

li 

( f S J 

m 


is 

{PUR} 

ma d 

m 

fF5] 

tE 


□ 

{CRN} 

ussèu 

□ 

ÌF6} 

OD 


“1 

( BLU ) 

CEBO 

a 

l F7 } 

no 



{YEL} 

UBO 

m 

{FS] 

03 
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Generatore 
di labirinti 






c 

Generatore 
di labirinti 

Charles Bond -— versione in linguaggio macchina di Gary E. Marsa e per C64 
di Gragg Peele. 

Questo programma può costituire la base per motti eccellenti 
giochi , 

Ecco un algoritmo davvero semplice per creare dei labirinti 
casuali sull vostro schermo. 

Per capire come funziona fate riferimento al diagramma di flusso 
ed al programma 1, La spiegazione che segue dovrebbe chiarire ì 
dettagli. 

Il campo di base 

L'algoritmo opera su un campo di base che dev'essere creato 
sullo schermo prima della linea 210 nel programma 1. Il campo 
deve essere formato da un numero dispari di righe orizzontali, 
ciascuna delle quali contiene un numero dispari di celle. Conviene 
pensare al campo come ad una matrice bi-dimensionale, il cui 
angolo superiore sinistro abbia le coordinate X=0 e Y=0, dove X è la 
direzione orizzontale e Y la direzione verticale. Il programma non 
fa uso dì coordinate per identificare delle locazioni assolute, ma il 
concetto è utile per la configurazione del campo. 

Se le coordinate della cella in alto a sinistra dei campo sono 0,0, la 
coordinata finale, sia orizzontale che verticale, è un numero pari. 
Inoltre, il campo dev'essere attorniato da tutti i lati da locazioni di 
memoria, il cui contenuto è diverso dal numero usato per identi¬ 
ficare il campo. Perciò, se il campo è formato da spazi in reverse, il 
numero corrispondente a questo carattere non deve essere adia¬ 
cente al campo. 

Ciò potrebbe inavvertitamente accadere se ia RAM dello scher- 
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mo e la ROM avessero degli indirizzi adiacenti. Una precauzione 
sufficiente consiste nell'evitare di coprire tutto lo schermo co] 
campo. Lasciate almeno uno spazio all'Inizio e alla fine di ogni linea 
e, in generale, lasciate vuote fa linea superiore ed inferiore dello 
schermo. 

M generatore dì labirinti 

La creazione del labirinto comincia col porre un contrassegno 
speciale nel quadrato di partenza. Questo programma inizia sem¬ 
pre dal quadrato posto nell'angolo in alto a sinistra del campo (con 
le nostre convenzioni sulle coordinate sarebbe la cella 1*1)* Qual¬ 
siasi celta, alTinterno del campo, con delle coordinate dispari 
andrebbe comunque bene. 

Quindi viene scelta una direzione casuale per mezzo del gene¬ 
ratore di numeri casuali (con un numero da 0 a 3}. Il numero 
generato determina, grazie ad una tabella, una direzione e la cella 
seguente. Questa nuova cella viene esaminata [con PEEK) per 
vedere se fa parte del campo. In caso affermativo vi viene messo il 
numero corrispondente alla sua direzione come contrassegno e la 
barriera fra le due celle viene eliminata, 

Inoltre, il puntatore della cella corrente viene aggiornalo in modo 
da puntare alla nuova cella. Questo procedimento viene ripetuto 
finché la nuova cella non fallisce il test: ciò significa che non 
appartiene al campo. Quando questo succede il vettore della dire¬ 
zione viene ruotato di 90 gradì e viene ripetuto il test. Perciò il 
cammino attraverso il labirinto continua finché non viene raggiunta 
la fine, 

É possibile, a volte, arrivare alla fine anche in soli cinque passi. 
Quando ciò accade, possiamo utilizzare i contrassegni lasciati lun¬ 
go il cammino, come Hansel e GreteJ, Possiamo utilizzarli per 
determinare la direzione da cui siamo venuti, in modo da tornare 
indietro e cercare nuovi varchi da aprire. Finché non viene trovata 
una nuova via, il programma continua a tornare indietro, un passo 
per volta, cancellando via vìa i contrassegni delle celle. 

Quando è possibile prendere una nuova direzione, il puntatore 
viene aggiornato con la nuova direzione ed il procedimento con¬ 
tinua come prima. 

Infine il puntatore ritornerà alla cella di partenza, che viene 
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riconosciuta grazie ad un contrassegno speciale di partenza (ora di 
«fine*}. Questa celta viene cancellata ed il programma è terminato, 
lasciando ìE puntatore com'era all'Inìzio. 

M programma 

La tabella delle direzioni alle linee 100 e 110 converte un numero 
intero in un indirizzo. In questo caso (schermo di 40 colonne) 
vogliamo spostarci di due celle a destra, sinistra, in alto o in bas¬ 
so. 

La linea 120 contiene fa variabile SC, che è l'indirizzo iniziaie 
della memoria RAM dello schermo. Le linee 130-160 generano il 
campo di partenza sullo schermo. 

Il resto del programma disegna il labirinto, come spiegato in 
precedenza. La linea 310 serve solo a prevenire lo scrolling dello 
schermo. 

Potrebbe non essere ovvio che questo algoritmo genera un labi¬ 
rinto con una sola vìa d'uscita fra due punti qualunque, o che il 
labirinto verrà sempre riempito, ma dò può anche essere provato. 
Non ne forniremo qui la dimostrazione, ma per gli appassionati di 
matematica può essere interessante sapere che per un labirinto di 
dimensioni qualsiasi si ha: 

(H^l) (V-1) —1 j. „ 

—— L — y~ ~ numero di celle vuote 

dove H è il numero di celle su ogni riga e V è il numero di 
righe. 

Una caratteristica interessante di questo algoritmo è che funzio¬ 
na altrettanto bene con certi tipi di campi non rettangolari. Anche i 
campi a forma di U, o con dei buchi in mezzo, vanno bene, se 
vengono osservate certe limitazioni. 

Basta che le coordinate della cella in alto a sinistra e della cella in 
basso a destra di ciascuna area al di fuori del labirinto siano coppie 
di numeri dispari. Inoltre, se c'è una sola riga dì celle fra un'area non 
appartenente al labirinto ed il bordo esterno del campo, essa può 
venire eliminata. 

Labirinti in linguaggio macchina 

Il programma 2 è una traduzione in linguaggio macchina del 
programma 1. È sotto forma di caricatore BASIC, Può essere inserito 
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in un qualunque programma in BASIC, così come il programma 

1 . 

Il programma 3 è il listato in assembler della routine in linguaggio 
macchina del programma 2, 

Il topo 

La subroutine alle linee T000-1020 del programma 1 genera un 
topo che vaga senza fine nel labirinto. 13 topo segue la regola della 
«mano sinistra» ogni volta che deve decidere la direzione da sce¬ 
gliere. Ciò significa che quando arriva ad un bivio gira a sinistra, se 
possibile. Altrimenti continua ad andare avanti. Se non ha scelta, 
torna indietro. Queste linee non sono necessarie per la creazione 
del labirinto, perciò possono essere cancellate. Nei programmi 2 e 
3 non c'è iJ topo, 


GENERATORE DI LABIRINTI - BASIC 

100 DIMA(3) 

110 A(0)=2:A(1)=-80;A(2)=^2:A(3)=tì0 
12 0 WL=160 :HL=32 ìSC=102 4 :A=SC+81 
130 PRINT 1 " {CLR} 11 
140 FORI-1TO23 

150 PRINT 11 {RVS} {WHT} ( 39 SPAZI]" 

160 NEXTI 
210 POKEA,4 

220 J=INT(KSD(1)*4):X=J 

230 B=A+A(J);IFPEEK(B)-WLTHENPOKEB,J:PQKEA 
+A(J) /2 f HL;A=B:GOTG2 2 0 
240 J=J( J+l ) £ J < 3 ) : IF JOXTHEN2 2 0 

250 J=PEEK(Al :POKEA,HL:XFJ<4THENA=A-A(J) :G 
OTO220 

310 GETCS ;IFC$- ,M, THEN31 0 
1000 POKEA T Sì ì J = 2 

1010 B=A+A{ J)/2iIFPEEK £B1 =HLTHENPOKEB ,81 :P 
OKEA,HL: A=B -i J- (J+2)+4* ( J>1 ) 

1 020 J=(J-1)-4*{J=0);GOTOl010 
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GENERATORE DI LABIRINTI - LING. MACCHINA 


1 0 1-491 52 :IFPEEK(1 + 2)=21 6THENSYS49160:END 

2 0 READA : IFA=2 5 6THENS YS 49160iEND 
30 FOKE I, A sI= X+1 * GOTO2 0 

49152 DATAI,0,216,255,255,255,40 
4 91 60 DATAO r 169,81,133,251 ,169,40 
4 9163 DATAI 33,253,169,4,133,252,133 
49176 DATA254,169,147,32,210,255,162 
49184 DATAO,160,0,169,160,145,253 
49192 DATA20Q,192,39,208,249,24,165 
4 92 00 DATA253, 105,40,1 33,253,1 44,2 
492 08 DATA230,254,232,224,23,208,229 
4 921 6 DATAI 60,0,169,4,145,251,169 
4 922 4 DATA255,1 41 ,1 5, 21 2,1 69,123,1 41 
49232 DATAI 8,212,173,27,212,41 ,3 
492 40 DATAI 33, 173,1 70,10,168,24,185 
49248 DATAO,192,1 01 ,251 ,1 33,1 70,1 85 
49256 DATAI,192,101,252,133,171,24 
4 92 64 DATAI 85,0,192,1 01 ,170, 1 33,253 
4 92 72 DATAI 85,1,1 92,1 01 , 171 , 1 33,254 
4 9280 DATAI 60,0,1 77,253,201 , 1 60,208 
49288 DATAIB, 1 38,1 45, 253,1 69,32,145 
4 92 96 DATAI 70,165,253,1 33,251,165,254 
4 93 04 DATAI 33,252,76,62,1 92,2 32, 1 38 
49312 DATA41,3,197,173,208,189,177 
49320 DATA251,170,169,32,145,251,224 
4932 8 DATA4,240,26,138,10,16$,162 
49336 DATA2,56,165,251,249,0,192 
4 9344 DATAI 33,251 ,1 65,252,249,1 , 1 92 
4 93 52 DATAI 33,2 52,202,203, 2 3 8, 76,62 
49360 DATAI 92,1 69,1,160,0,1 53,0 
4 9368 DATASI 6, 1 53,0,21 7,153,0,21 8 
4 9376 DATAI 53,0,21 9,200,208,241 ,96,256 
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GENERATORE DI LABIRINTI - ASSEMBLER 


cooo 

01 

00 



eoo 2 

DB 




COO 3 

FF 




C004 

FF 




COO 5 

FF 




COO 6 

2 3 




COO 7 

00 




cooa 

A9 

51 

LDA 

#$51 

CODA 

85 

FB 

STA 

$FB 

cooc 

A9 

23 

LDA 

#$2 8 

CODE 

85 

FD 

STA 

$FD 

COI 0 

A9 

04 

LDA 

#$04 

COI 2 

85 

FC 

STA 

$FC 

COI 4 

85 

FE 

STA 

$FE 

COI 6 

A9 

93 

LDA 

#$93 

COI 8 

20 

P2 FF 

JSR 

SFFD2 

COI B 

A2 

00 

LDX 

#$00 

colo 

AO 

00 

LDY 

#$oo 

CO ì F 

A 9 

AO 

LDA 

#$A0 

CO 2] 

91 

FD 

STA 

($FD) f Y 

C023 

C8 


INY 


C024 

CO 

2 7 

CPY 

#$27 

C026 

DO 

F9 

BNE 

$ C 0 21 

C028 

1 8 


CLC 


CO 2 9 

A5 

FD 

LDA 

$ FD 

C02B 

69 

28 

ADC 

#$28 

C02d 

85 

FD 

STA 

$FD 

C02F 

90 

02 

BCC 

$C0 3 3 

CQ31 

E6 

FE 

INC 

$FE 

CO 3 3 

E8 


INX 


CO 3 4 

EO 

1 7 

CPX 

#$17 

CO 3 6 
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C038 

AO 

00 


LDY 

#$00 


CG3A 

A.9 

04 


LDA 

#$04 


C03C 

91 

FB 


STA 

($FB) j Y 


C03B 

A9 

FF 


LDA 

#$FF 


CO 4 0 

8D 

OF 

D4 

STA 

$D40f 

) _ 

CG43 

A9 

80 


LDA 

#$80 

£ 

CQ45 

8D 

1 2 

D4 

STA 

$D41 2 


C048 

AD 

1 B 

D4 

LDA 

$ D4 1 B 

f !"“-r 

CG4B 

29 

03 


AND 

#$03 


C04D 

85 

AD 


STA 

$ AD 


C04F 

AA 



TAX 



coso 

OA 



ASL 



COSI 

AB 



TAY 



C0S2 

1 8 



CLC 



C053 

B9 

00 

co 

LDA 

$COOO,Y 

f-i- 

C056 

€ 5 

F8 


ADC 

$FB 


CO 58 

85 

AA 


STA 

$ AA 


COSA 

B9 

01 

CO 

LDA 

$C0G1,Y 


CO 5D 

65 

FC 


ADC 

$FC 


C05F 

SS 

AB 


STA 

$ AB 

_^ 

COSI 

1 8 



CLC 



C062 

B9 

00 

CO 

LDA 

$CG00,Y 


CO 65 

65 

AA 


ADC 

$ AA 

_ k 

CO 67 

85 

FD 


STA 

$ FD 


C069 

B9 

01 

CO 

LDA 

$C0Q1 t Y 


C0 6C 

65 

AB 


ADC 

$ AB 

. _ 

COSE 

85 

FE 


STA 

$FE 

| 1 

CO 70 

AO 

00 


LDY 

#$oo 


CO 7 2 

B1 

FD 


LDA 

($FD) t Y 


CO 74 

C9 

aO 


CMP 

#$AO 


C076 

DO 

1 2 


BNE 

$CO 8A 


CO 7 8 

8A 



TXA 


r~ 

CO 7 9 

91 

FD 


STA 

($FD) f Y 

* , 

C07B 

A 9 

20 


LDA 

#$20 


CO 7D 

91 

AA 


STA 

{$AA) t Y 


C07F 

A5 

FD 


LDA 

$ FD 


C08Ì 

85 

FB 


STA 

$ FB 



i 
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CO 83 A5 FE 
CO85 85 FC 
CO87 4C 3E CO 
CO 8A E8 
C08B 3A 
C08C 29 03 
COSE C5 AD 
CO90 DO BD 
CO92 Bl FB 
C094 AA 
CO95 A9 20 
C097 91 FB 
C099 EO 04 
CG9B FO 1A 
C09D 8A 
C09E OA 
C09F AB 
COAO A2 02 
C0A2 38 
COA3 A5 FB 
C0A5 F9 00 CO 
C0A8 85 FB 
CO AA A5 FC 
COAC F9 01 CO 
COAF B5 FC 
COBI CA 
C0B2 DO EE 
CGB4 4C 3E CO 
CO B7 A9 01 
C0B9 AO 00 
COBB 99 00 DB 
COBE 99 00 D9 
C0C1 99 00 DA 
C0C4 99 00 DB 
C0C7 C8 
coca DO Fi 
COCA 60 


LDA $FE 
STA $FC 
JMP $C03E 
IKX 
TXA 

AND #$03 
CMP $AD 
BNE $C04F 
LDA ($FB),Y 
TAX 

LDA #$2Q 

STA ( $ FB ) , Y 

CPX #$04 

BEQ 3C0B7 

TXA 

ASL 

TAY 

LDX #$02 
SEC 

LDA $ FB 
SBC $COGO,Y 
STA $ FB 
LDA $FC 
SBC 8C001 t Y 
STA $FC 
DEX 

BNE $C0A2 
JMP $C03E 
LDA #$01 
LDY #$00 
STA $D8Q0,Y 
STA $D900,Y 
STA $DAOQ,Y 
STA $DBOO r Y 
INY 

BNE $C0BB 
FTS 
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i ' 


D 


: 




fi 




ì'-3 


lf* 


Volete 
scrivere 
da soli 
i vostri 
programmi? 
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D 

Volete scrivere 
da soli i vostri 

programmi? 

Orson Soott Card 


Mi ricordo quando i video-giochi sono arrivati per la prima volta 
nella mia città, all'inizio degli anni settanta. Insieme ad un amico mi 
divertii molto con il gioco del ping-pong, anche se preferisco quello 
giocato su un vero tavolo. 

In seguito, nell'ingresso di un teatro, feci la conoscenza di 
«Breakout», e questo cambiò la mia vita. Da allora diventai un 
accanito giocatore di video-giochi, 

Questo perchè su quello schermo di televisore — neanche a 
colori, ma solo in bianco e nero con delle strisce colorate di plastica 
— il video-gioco mi offriva un'esperienza che niente altro mi 
poteva offrire. La velocità ed il concetto stesso del gioco erano 
qualcosa di completamente nuovo. 

Tutti sanno dove sia arrivato da allora. Se trasformate le racchette 
di Breakout in una nave spaziale, cambiate la forma dei mattoni e li 
fate scendere lentamente sullo schermo, avrete *Space Invadersi 
Se trasformate le racchette di Breakout in un'auto da corsa e la fate 
correre su delie macchioline colorate invece che su dei mattoni, 
avrete un gioco tipo Pac Man, I giochi di guerra ed i giochi della 
serie di Pac Man, i giochi in cui ci si deve arrampicare ed i giochi di 
simulazione sono tutti diventati sempre più sofisticati. 

Ora, sul vostro televisore di casa, potete vedere volare i piccoli 
aerei della «Vendetta del Barone Rosso». E voi stessi avete digitato il 
gioco sul computer. 
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Oltre i giochi 

Tuttavia giocare non mi sembrava sufficiente. Fin dall-inizio mi 
chiedevo come era possibile realizzare dei giochi. Allora non sape¬ 
vo niente sui computer, come molta gente; pensavo che i compu¬ 
ter fossero fatti per chi era bravo in matematica o in ingegneria, ed 
io non ero né f' uno né ["altro. Ma per la prima vofta volevo acquisire 
l'abilità necessaria per programmare un computer, Perché volevo 
creare i miei giochi. 

Volevo fare un gioco in cui governare degli antichi velieri, attra¬ 
verso correnti e forti venti, per esplorare isole sconosciute ed 
ingaggiare battaglie navali. 

Volevo un gioco col quale poter costruire una città, stabilirne 
[ andamento del traffico e creare cosi l'immagine della vita cittadi¬ 
na. 

Volevo possedere la potenza di un computer per creare qua¬ 
lunque mondo volessi e qualunque gioco volessi giocare in quel 
mondo. 

Ma sapevo che non sarebbe mai successo. Non ero bravo in 
matematica e non avevo alcun interesse nell'ingegnerìa, e per le 
persone come me i computer non potevano essere niente altro che 
grandi scatole nere* 

Como aprire la scatola nera 

Le grandi scatole nere non sono cambiate, vero? Potete trattare il 
vostro C64 come una scatola nera; se volete, inserite una cartuccia 
contenente un gioco e via. Ma per la maggior parte dei giochi vi è 
necessario digitare delle cose come LOAD e RUN. E per i giochi di 
questo libro dovete digitare degli interi programmi. 

E se ancora non ve ne siete accorti, ormai dovrebbe essere 
chiaro. Voi avete certamente le cognizioni necessarie per program¬ 
mare tutti quei giochi che vi sarebbe sempre piaciuto giocare. Il 
vostro Commodore 64 può fare quasi tutto quello che possono fare 
i video-giochi delie sale-giochi. 

Meglio ancora, può fare delle cose che non sono mai state fatte 
prima. Può farvi vedere dei mondi creati da voi e può fare delle 
cose inventate da voi. 

E a proposito del mito secondo cui i programmatori devono 
essere bravi in matematica o in ingegneria, non ci credete più, non 
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è vero? Mia moglie deve ancora calcolare il saldo del libretto degli 
assegni per me, ed io non riesco a distinguere il diagramma di un 
circuito da un piatto di vermicelli, ma ho scritto dei giochi che 
funaionano, usando sìa il BASIC che il linguaggio macchina. E vi 
assicuro che se sono in grado di farlo io, chiunque lo può fare. 

Come imparare a programmare dei giochi 

Sfortunatamente non troverete un corso di programmazione di 
video-giochi alle scuole serali. I corsi di programmazione sono in 
genere orientati verso i problemi commerciali o matematici. Rara¬ 
mente insegnano qualcosa sulle tecniche della grafica e del suono, 
che sono alla base del programmi di giochi. 

Perciò il modo migliore per imparare consiste nel trovare un 
amico che sia esperto nella programmazione di video-giochi e nel 
convincerlo ad insegnarvi, passo dopo passo, come risolvere i pro¬ 
blemi cui vi trovate di fronte quando cercate di programmare il 
vostro primo gioco. Poiché l'unico modo per imparare a program¬ 
mare è quello di scrìvere dei programmi ed avere un amico esperto 
(e paziente), che vi aiuti a superare i punti più difficili. 

LI secondo miglior modo sono i libri. 

Esistono dei libri che vi insegnano a programmare in BASIC sul 
Commodore 64, dei manuali che vi danno delle importanti infor¬ 
mazioni sulle locazioni di memoria e sulle tecniche speciali, libri 
che insegnano a programmare in linguaggio macchina col 6510, 
che fa funzionare il vostro C64, e perfino un libro intitolato «Cre- 
ating Arcade Games on thè Commodore 64» (Come creare L video- 
giochi sul Commodore 64), che sembra essere proprio il libro che fa 
per voi, 

(Prima che Lo vi dia un elenco completo delle letture raccoman¬ 
date, bisogna che vi spieghi una cosa. Questo elenco include 
soprattutto tìtoli dì libri pubblicati da COMPUTE! che ha pubbli¬ 
cato «COMPUTER First Book of Commodore 64 Games». Tuttavia 
non si tratta puramente di spudorata pubblicità a sé Stessi. Sono 
compresi nell'elenco anche quei libri o manuali validi pubblicati da 
altre case e di cui sono a conoscenza, Ma il Commodore 64 è cosi 
recente come computer che, al momento di questa pubblicazione, 
la maggior parte delle case editrici ancora non hanno scritto niente 
sul C64. In effetti molti dei libri menzionati nella mia lista non sono 

273 


i 










Appendice 


ancora stati pubblicati. Ma poiché lavoro perCOMPUTE! Books, so 
bene quali sono i nostri libri in fase di stampa o di produzione, o che 
ci arrivano, un capitolo alla volta, da autori della California, Michi¬ 
gan, Utah, Virgìnia, Pennsylvania e New jersey. Perciò posso inclu¬ 
dere questi libri nell'elenco e promettervi che possono essere per 
voi un aiuto nella programmazione. Ma non posso dirvi nulla a 
proposito dei libri che saranno pubblicati dagli altri editori perché, 
sfortunatamente, nel mondo dell'editoria non sempre d diciamo 
l'un l'altro quali sono r nostri piani. Quando leggerete questo ci 
potranno essere centinaia di altri libri che vi possono essere utili. 


NOTE 



GIOCHI FANTASTICI CON IL 

Comprende 19 giochi'‘proni i alluso", Ampiamen¬ 
te commentati i programmi non richiedono, per 
essere utilizati, alcuna esperienza di programma¬ 
zione. Tuttavia it loro attento studio potrà essere 
sfruttato per comprendere, oppure arricchire, !e 
tecniche di programmazione. 


Cod, ASGC001 


L. 42.000 

conitures-j la cassetta a Ircela 


